- or download this
use strict;
use warnings FATAL => qw( all );
...
}
}
- or download this
$ perl la-2.pl 2>&1
...
put away clothing of the day
- or download this
perl -Mstrict -Mwarnings -MData::Dumper -MYAML -le '
my @episode = (
...
[ qw( *episode *stories ) ]
);
'
- or download this
git clone ssh://user@githost/git/foo
cd foo
#Work to files in the repository
- or download this
git log file.txt
git log --follow file.txt
git log --follow -C -M file.txt
- or download this
git log --graph
git log --graph --oneline
git log --graph --pretty=format':%C(yellow)%h%Cblue%d%Creset %s %C(whi
+te) %an, %ar%Creset'
- or download this
git mv new-file-2.pl new-file.pl
git commit -m "new-file.pl: Rename file from new-file-2.pl."
- or download this
git rm --cached new-file-3.pl
git commit -m "new-file-3.pl: Remove file from Git repository (but lea
+ve in directory)."
- or download this
git rm new-file-4.pl
git commit -m "new-file-4.pl: Remove file from Git repository."
- or download this
git config --global user.name "John Doe"
git config --global user.email 'jdoe@example.com'
- or download this
package Letter_A;
...
}
1;
- or download this
package Letter_B;
...
}
1;
- or download this
package Letter;
...
}
1;
- or download this
#!/usr/bin/perl
...
$s->identify;
print Data::Dumper->Dump( [ \$s ], [qw( *s )] ), qq{\n};
- or download this
#!/usr/bin/perl
...
FOOTER
}
- or download this
#!/usr/bin/perl -lw
...
delete $self->{$t};
}
}
- or download this
#!/usr/bin/perl -l
...
delete($bla->{temp});
print Data::Dumper->Dump( [\$bla], [qw(*bla)]);
- or download this
#!/usr/bin/perl -w
...
HELPTEXT
exit;
}
- or download this
#!/usr/bin/perl -w
...
print qq{Coordinates:\n} . join( qq{\n\t}, @coor ), qq{\n},
qq{RGBcolor:\n} . join( qq{\n\t}, @color ), qq{\n};
- or download this
$ perl gol-test.pl --coordinates 52.2 16.4 --rgbcolor 255 255 149
Getopt::Long 2.34 ($Revision: 2.68 $) called from package "main".
...
ignorecase=1,requested_version=0,passthrough=0,genprefix="(--|-|\+)"
+.
Error in option spec: "coordinates=f{2}"
Error in option spec: "rgbcolor=i{3}"
- or download this
#!/usr/bin/perl -w
...
}
__END__
- or download this
#!/usr/bin/perl
...
printf "the object %s $method\n",
$wrapper->can($method) ? 'can' : 'cannot';
}
- or download this
use strict;
use warnings;
...
}
1;
- or download this
use strict;
use warnings;
...
}
1;
- or download this
#
# My/Wrapper.pm
...
}
1;
- or download this
# vim:set expandtab shiftwidth=4 softtabstop=2 tabstop=4:
- or download this
print join(", ",
map{ q{<a href="link.pl?=} . $_ . q{" target="_blank" onclick="var w
+inHandle = window.open('', '', 'width=400,height=200'); return(false)
+;">} . $_ . q{</a>} } @array
);
- or download this
for my $host (keys %hosts) {
for my $servicename ( @{$hosts{$host}} ) {
...
}
}
}
- or download this
#!/usr/bin/perl
...
)
);
close($OUTF);