Различия

Показаны различия между двумя версиями страницы.

--- автоматизация_с_использованием_perl_tcl_tk [2013/06/24 16:05]
46.231.215.230
+++ автоматизация_с_использованием_perl_tcl_tk [2013/06/24 20:14] (текущий)
@@ Строка 27: / Строка 27: @@
 ''
+Работа с полями:
+''
+#!/usr/bin/perl\\
+open(CARS, "./cars.txt") || die "Файл не найден!";\\
+while(<CARS>)\\
+ {
+($proizv,$mod,$gw,$prob,$cena) = split(' ');\\
+print "Производитель: \t $proizv \t Стоимость \t $mod\n";\\
+  }\\
+close(CARS);\\
+''
+Чтение чужого вывода.
+''
+#!/usr/bin/perl\\
+open(CARS, "sort ./cars.txt|") || die "Файл не найден!";\\
+while(<CARS>)\\
+ {\\
+($proizv,$mod,$gw,$prob,$cena) = split(' ');\\
+print "Производитель: \t $proizv \t Стоимость \t $mod\n";\\
+  }\\
+close(CARS);\\
+''
+[[http://www.opennet.ru/docs/RUS/perl-maslov/|Статья про PERL]]

nadejnei.net