1
2
xxx@refrath:~/perl/imap-sorter$ cat /usr/lib/perl/5.10.1/Data/Dumper.pm | grep "\$VERSION"
$VERSION = '2.124'; # Don't forget to set version and release date in POD!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
my ($startd,$stopd) = '01.12.2011 31.12.2011' =~ /^(.*)\s(.*)$/smx ;
print "$startd\n";
print "$stopd\n";
my $tst = { start=>$startd , stop=>$stopd };
print Dumper $tst;
print "$tst->{'start'}\n";
print "$tst->{'stop'}\n";
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my ($startd,$stopd) = '01.12.2011 31.12.2011' =~ /^(.*)\s(.*)$/smx ; print "\$startd=$startd\n"; print "\$stopd=$stopd\n"; my $tst = { start=>$startd , stop=>$stopd }; print Dumper $tst; print q($tst->{'start'} ),"$tst->{'start'}\n"; print q($tst->{'stop'} ),"$tst->{'stop'}\n";
1
2
3
4
5
6
7
8
$startd=01.12.2011
$stopd=31.12.2011
$VAR1 = {
'stop' => '31.12.2011',
'start' => '01.12.2011'
};
$tst->{'start'} 01.12.2011
$tst->{'stop'} 31.12.2011