[ create a new paste ] login | about

Link: http://codepad.org/7DQ1zcPc    [ raw code | output | fork ]

Perl, pasted on Apr 6:
1
2
3
4
5
print "Hello World!\n";

my $j_leg_sort = '--';
our $v_leg_sort   = qr/^[\W|\w]{1,2}$/;             # Valid Leg Sort
print 'Invalid leg sort'   if $j_leg_sort && ($j_leg_sort !~ $v_leg_sort);


Output:
1
Hello World!


Create a new paste based on this one


Comments: