Olá e boas-vindas de Estados Unidos para o UNIX e Linux Forum! Obrigado por visitar e fazer parte da nossa comunidade global.
|
Olá e boas-vindas de Estados Unidos para o UNIX e Linux Forum! Obrigado por visitar e fazer parte da nossa comunidade global.
|
|
google unix.com
|
|||||||
| Fóruns | Registar | Fórum Regimento | Ligações | Álbuns | FAQ | Lista deputados | Calendário | Pesquisa | Today's Posts | Mark Forums Read |
 |
| Programação Shell Script e Post perguntas sobre ksh, CSH, SH, BASH, Perl, PHP, SED, Awk e outros scripts shell e shell scripts línguas aqui. |
Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
|
||||
| Fio | Thread Starter | Fórum | Respostas | Última postagem |
| regex pergunta | xiamin | Programação Shell Script e | 3 | 03-05-2009 02:53 |
| Perl Regex ajudar - correspondência entre parênteses | CVP | Programação Shell Script e | 7 | 02-27-2009 05:38 |
| Como faço para tira esta linha usando perl regex. | ramky79 | Programação Shell Script e | 1 | 03-18-2008 12:10 |
| regex pergunta | arushunter | Programação Shell Script e | 8 | 01-04-2007 05:49 |
| regex pergunta | rocketkids | UNIX para Dummies Perguntas & Respostas | 6 | 02-12-2004 05:49 |
Powered by 
|
|
|
Linkback | Thread Tools | Pesquisar este Thread | Rate Thread | Display Modes |
07-16-2008
|
||||
|
||||
|
Perl Regex pergunta
Tenho o seguinte código:
Código:
#!/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);
}
|
| Marcadores |
| Tags |
| perl, perl regex, regex |
| Thread Tools | Pesquisar este Thread |
| Display Modes | Esta taxa Thread |
|
|
Threaded Mode
