#!/usr/bin/env perl use warnings; chomp( $date=qx/date/ ); print "[[$_]]" foreach @date = split / /, $date; print "\n"; $"="/"; print "@date[5,1,2]\n";
#!/usr/bin/env perl use warnings; chomp( $date=qx/date/ ); print "[[$_]]" foreach @date = split / /, $date; print "\n"; $"="/"; print "@date[5,1,2]\n";
Comments