Hi hasimir44, Try this,
use strict; use warnings; my $next = 0; my (@stamp, @name); while (<DATA>){ chomp; ($stamp[$next], $name[$next]) = $_ =~ m/([a-z]{3}(?:\s[0-9]{2}){2} +:[0-9]{2})\s(\/.+\.Z)/i; print "\$name[\$next]: $name[$next]\n"; print "\$stamp[\$next]: $stamp[$next]\n"; $next++; } __DATA__ Jun 05 20:08 /test/B1006-cnvexp.20060605.200841.Z Jun 05 20:09 /test/B1106-cnvexp.20060605.2008.Z Jun 05 20:09 /test/B11062-cnvexp.20060605.2008.Z Output is: $name[$next]: /test/B1006-cnvexp.20060605.200841.Z $stamp[$next]: Jun 05 20:08 $name[$next]: /test/B1106-cnvexp.20060605.2008.Z $stamp[$next]: Jun 05 20:09 $name[$next]: /test/B11062-cnvexp.20060605.2008.Z $stamp[$next]: Jun 05 20:09
Regards,
Velusamy R.
In reply to Re: Tips for elegance
by Samy_rio
in thread Tips for elegance
by hasimir44
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |