1
2
3
4
5
6
7
8
9
use strict;
my @arr = (
       { name => "aaa" , values => ("a1","a2") },
       { name => "bbb" , values => ("b1","b2","b3") }
      );
 
 
foreach $a (@arr) {
  my @cur_values = @{$a->{values}};
 ...

1
2
's;;{]``*%)}`_^[&)/#%(`&;;\
y;%^)([]/*#&`_{};.\100acghiklmopsz;;print'

1
2
's;;{]``*%)}`_^[&)/#%(`&;;\
y;%^)([]/*#&`_{};.\100acghiklmopsz;;print'

1
s;;{]``*%)}`_^[&)/#%(`&;;\y;%^)([]/*#&`_{};.\100acghiklmopsz;;print

1
2
perl -e 's;;{]``*%)}`_^[&)/#%(`&;;\
y;%^)([]/*#&`_{};.\100acghiklmopsz;;print'

1
2
3
4
5
6
7
8
9
 
  require Text::CSV;
 
  my $csv = Text::CSV->new;
 
  my $column = '';
  my $sample_input_string = '"I said, ""Hi!""",Yes,"",2.34,,"1.09"';
  if ($csv->parse($sample_input_string)) {
    my @field = $csv->fields;
 ...

1
print "hello!!!!";

1
2
3
4
5
6
7
8
9
#Kirsten Hawk
#September 16, 2011
#CIS 346
#
#This program will read in a list of numbers, sort and print the numbers, 
#find the sum, largest, smallest, average, and compute the standard deviation.
$sum = 0;
 
print "How many numbers would you like to put in? ";
 ...

1
2
3
$count = 1;
$count--;
print $count;

1
2
3
$count =3
$count --
print $count

1
2
3
$count == 1
$count--
print $count

1
 

1
2
3
4
5
6
7
8
9
#!perl -w
use strict;
my %var;
 
my %op = (
  '+'  => { prec => 10, assoc => 'L', exec => sub { $_[0] + $_[1] }},
  '-'  => { prec => 10, assoc => 'L', exec => sub { $_[0] - $_[1] }},
  '*'  => { prec => 20, assoc => 'L', exec => sub { $_[0] * $_[1] }},
  '/'  => { prec => 20, assoc => 'L', exec => sub { $_[0] / $_[1] }},
 ...

1
2
3
4
5
6
7
8
$count = 0;
%names = ("Lio", "11/01/1666", "Elmo", "11/02/1988", "Mar","11/03/1988");
#@names = $names($keys);
#@date = $names($values);
 
#foreach $output(@date){
#print "$output ";
#}

1
 

1
2
3
4
@a=(1..10);
@e=splice(@a,4,3);
print @a;
print @e;

1
2
3
4
@a=(1..10);
@e=splice(@a,4,3);
print @a;
print @e;

1
2
3
4
@array2= (1..10);
@extract = splice (@array, 4, 3);
print "@array\n";
print "@extract";

1
2
3
4
@array=(1..10);
@e=splice(@array,4,3);
print "@array\n";
print @e;

1
2
3
4
@array(1..10);
@e=splice(@array,4,3);
print "@array\n";
print @e;

1
2
3
4
5
6
7
8
 
#!/usr/local/bin/perl
 
@num=(1 .. 10);
 
@num=reverse(@num);
 
print "@num"."\n";
 ...

1
2
3
4
5
6
7
8
9
expr := value ( op value )*
 
##</code><code>##
 
sub parse_expr {
    my($value, @stack);
    while(1) {
        $value = parse_value or die "Parse error";
        my $op = parse_operator or last;
 ...

1
print map(ord,split"Ryan O'Hara",//);

1
2
3
4
5
6
7
$string="spi global hello world";
$string2=ucfirst($string);
foreach $string1(split(/ /,$string))
{
$string2=ucfirst($string1);
print "$spring";
}

1
2
3
4
5
6
7
8
9
sub prefix:<√>($a){ sqrt($a); }
sub Δ($a,$b,$c){ $b**2 - 4*$a*$c; }
sub infix:<±>($a,$b){
  [ $a+$b, $a-$b ];
}
multi infix:</>(@a,$b){
  [ @a.pop/$b, @a.pop/$b ];
}
sub roots($a,$b,$c){
 ...

1
2
3
4
5
6
7
sub triangle($x) {
    return [+] (^0..$x);
}
 
print triangle 4;
print "\n";
print triangle 5;

1
2
3
4
5
6
7
sub triangle {
    return [+] (^0..$_[0]);
}
 
print triangle 4;
print "\n";
print triangle 5;

1
2
3
4
5
6
7
sub triangle {
    return [+] (^0..@_(0));
}
 
print triangle 4;
print "\n";
print triangle 5;

1
2
3
4
5
6
7
sub triangle {
    return[+] (^0..@_(0));
}
 
print triangle 4;
print "\n";
print triangle 5;

1
2
3
4
5
6
7
sub triangle {
    return[+] (^0..@_[0]);
}
 
print triangle 4;
print "\n";
print triangle 5;