Opened by jan999 at 2009-07-07 11:55
So in der Art wuerde ich es machen:
MfG
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
my $cut_first = sub { substr($_[0], 1, length($_[0])) };
my (undef, $nr1, $nr2) = split(/ /, <DATA>);
print &$cut_first($nr1) ."\n";
print &$cut_first($nr2) ."\n";
__DATA__
T +53.7953465 +009.4032631 06-Jul-09 00:00:00 0
MfG