|
|
|
|
nick111, le lundi 17 septembre 2007 à 14:14:35Configuration: Windows XP Internet Explorer 6.0
Salut, #!/usr/bin/perl
#
$chaine_0 = '192.168.123.123';
grep{print"\$chaine_${\(++$i)}=$_\n"}split/\./,$chaine_0;
__END__--
lami20j |
encore une possibilité #!/usr/bin/perl
my $chaine_0 = '192.168.123.123';
print"\$chaine_${\(++$i)}=$_\n"for($chaine_0=~/(\d\d\d)/g);
__END__--
lami20j |