Различия

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

--- автоматизация_с_использованием_perl_tcl_tk [2013/06/24 16:03]
46.231.215.230 создано
+++ автоматизация_с_использованием_perl_tcl_tk [2013/06/24 20:14] (текущий)
@@ Строка 6: / Строка 6: @@
 для разбора будет использоваться файл cars.txt
+привет мир.
 ''
 #!/usr/bin/perl\\
 print "Привет Мир \n"\\
+''
+вывод файла:
+''
+#!/usr/bin/perl \\
+open(CARS,"./cars.txt")|| die "Файл не найден";\\
+while (<CARS>)\\
+{\\
+print ;\\
+}\\
+close(CARS);\\
 ''
+Работа с полями:
+''
+#!/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