Using perl Syntax Highlighting
- open( MIFICH, "/home/rocco/dir2/fi_sir_20120301_20120308.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";
- my $archivo = "fi_sir_";
- if ( $archivo =~ m/fi_sir_/ ) {
- while (<MIFICH>) {
- $cadena = "$_";
- @cadena = split( /\|\s*/,, $cadena );
- print "\n";
- print $cadena[1];
- }
- }
- else {
- print "enviar correo";
- }
- close(MIFICH);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
¿Qué función me permite abrir el directorio y compararlos?
Gracias.
Quiero una función como la de passthru en PHP o función equivalente en Perl.