Различия

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

--- автоматизация_с_использованием_perl_tcl_tk [2013/06/24 16:07]
46.231.215.230
+++ автоматизация_с_использованием_perl_tcl_tk [2013/06/24 20:14] (текущий)
@@ Строка 40: / Строка 40: @@
 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