Здравствуйте и добро от Соединенных Штатов UNIX и Linux Форумы! Благодарим Вас за посещение и вступления нашей мирового сообщества.
|
Здравствуйте и добро от Соединенных Штатов UNIX и Linux Форумы! Благодарим Вас за посещение и вступления нашей мирового сообщества.
|
|
Google unix.com
|
|||||||
| Форумы | Регистрация | Правила форума | Ссылки | Альбомы | ЧАВО | Список участников | Календарь | Поиск | Сегодняшние сообщения | Отметить форумы читать |
| Shell программирование и сценарии Почтовые вопросы о KSH, CSH, SH, BASH, Perl, PHP, SED, AWK и скрипты оболочки и оболочки скриптовых языков здесь. |
Подробнее UNIX и Linux Темы форума можно найти полезные
|
||||
| Нить | Резьба для начинающих | Форум | Ответы | Последнее сообщение |
| Regex вопрос | xiamin | Shell программирование и сценарии | 3 | 03-05-2009 02:53 AM |
| Perl Regex помочь - соответствие скобок | CVP | Shell программирование и сценарии | 7 | 02-27-2009 05:38 PM |
| Как полосе этой линии с использованием Perl Regex. | ramky79 | Shell программирование и сценарии | 1 | 03-18-2008 12:10 PM |
| Regex вопрос | arushunter | Shell программирование и сценарии | 8 | 01-04-2007 05:49 PM |
| Regex вопрос | rocketkids | UNIX для чайников Вопросы И Ответы | 6 | 02-12-2004 05:49 AM |
Powered By 
|
|
|
LinkBack | Резьба Инструменты | Искать в этом Thread | Оценить Thread | Режимы дисплея |
07-16-2008
|
||||
|
||||
|
Perl Regex вопрос
У меня следующий код:
Код:
#!/usr/bin/perl -w
@files = <*.csv>;
foreach $file (@files) {
open(FH, $file) || die("Error: Cannot open file $file for reading.");
my @dt = ($file =~ /^(\w+).(\d{6})\.csv$/);
while (<FH>) {
print "@dt[0] $_\n";
}
close(FH);
}
|
| Закладки |
| Теги |
| Perl, Perl Regex, Regex |
| Резьба Инструменты | Искать в этом Thread |
| Режимы дисплея | Оценить эту ветку |
|
|
Режим Нитевидный
