Irfan Sayed wrote:
Still i am not getting proper result. Here is my code. please help. $string = "pqp-un_1.0G_2009-02-23_17-38-09_5678903.txt";$string = ( split /\D+/ )[ -1 ];
$string = ( split /\D+/, $string )[ -1 ];
print "$string\n";
John -- Those people who think they know everything are a great annoyance to those of us who do. -- Isaac Asimov -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
