Разное

#тут некие операции @files = $t->cmd("ls -a -l");  foreach $file(@files) {$pattern='*.bak'; #необходимо применить данное регулярное выражение к элементам массива, Здесь не соображу как написать #при совпадении сделать следующие: $file=$t->cmd("put $file tftp://address/dir/")  }

Помогите пожалуйста с синтаксисом...

начать с того, что *.bak - это не регулярное выражение.

что это за язык?

>начать с того, что *.bak - это не регулярное выражение.
это пока шаблон (пятница 13 конец дня, зло) на соответствие которому надо бы проверить массив :-( файлов, а при совпадении - скопировать.
>
>что это за язык?
это перл+ один жутко специфический модуль, под одну жутко специфичную железку :-(

похоже на шаблон для glob()

#!/usr/local/perl/bin/perl -w #<?perl print "Content-type: text/html\n\n"; # use File::Glob ':glob';  my @list = glob('*[.]pl');       print "@list<hr>\n";  while( glob '*[.]pl'  ){       print "$_<br>\n";  }

похоже :-)
на самом деле библиотека Net::Telnet.
надо отобрать файлы по шаблону-все что совпадает, скопировать на принимающий ПК. :-(
Через сокеты нельзя - так как поддерживается только одно соединение.

возможно что кроме просто проверки условия if ($txt =~ m/...../i ) {......} и мало чего можно придумать.

#!h:/usr/local/perl/bin/perl -w #<?perl  print "Content-type: text/plain\n\n";   while(<1.txt 2.txt 3.bak 5.bak 7.txt>) {     print if /\.bak$/; }

/\\.bak/i

форум слэш вырезал

/\.bak$/i
:)