1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl -w use 5.010; use strict; print "\n"; my $a = "12.04.2012"; my $b = "12;04;2012"; my @wp = split /./,$a; print "a1: @wp\n"; @wp = split /\./,$a; print "a2: @wp\n"; @wp = split /;/,$b; print "b3: @wp\n";
Quotea1:
a2: 12 04 2012
b3: 12 04 2012