1
2
3
4

use strict;
use warnings;
use 5.010;
...

1

C:\Documents and Settings\Santa\Mis documentos\Smtp>perl scan.pl

1

Arcane

1
2
3
4

sub parse_decimal {
    my $input = shift;
    my $output = parse_grouping($input, ",", "."); # parse as 12,345,678.90
...

1
2
3
4

use strict;
use warnings;
use Test::More;
...

1
2
3
4

my $end = do {
    my $month_ago = DateTime->now->subtract( months => 1 );
    sprintf '%02d%02d', substr( $month_ago->year, -2 ), $month_ago->month;
...

1

File.open('/usr/local/teste/xml-cvs/ssp.xml').readlines.join.to_s.scan(/\>(.*)\</).uniq.sort.each {|dados| puts "#{dados};#{ File.open('/usr/local/teste/xml-cvs/ssp.xml').readlines.join.to_s.scan(/\>(.*)\</).count(dados)}"}

1

@a{<>}.=print%a

1

@a{<>}.=print keys%a

1

@a{<>}.=print keys%a

1

perl -we '@a{<>} = 1; print keys %a'

1
2
3
4

sub parse_decimal {
    (my $input = shift) =~ s/[^\d,\.]//g;
    my %o = (','=>'.','.'=>',');
...

1
2
3
4

#!/usr/bin/perl

use strict;
...

1
2
3
4

use File::Path qw(remove_tree);

sub purge_archive{
...

1

perl -we '$a{$_}++ while <>; print for keys %a' file1 file2

1
2
3

sub parse_decimal {
...

1
2
3
4

use strict;
use warnings;
use Test::More;
...

1
2
3
4

# Case 1: {comma,period} followed by exactly 3 digits and no occurrence of 4+ digits in a row
# Case 2: {comma,period} followed by exactly N digits where N != 3
# Case 3: No commas or periods
...