lecture code viewer

downloads

Code

#!/home/martink/bin/perl

$\ = "\n";

$string = "sheep";

if ( $string =~ /(e*p)/ ) {
  $matched = $1;
  print "$matched in $string matched";
}

$string = "53 big sheep";
if ( $string =~ /(\d+) \w+ (\w+)(.*)/ ) {
    if(1) {
	if($string =~ /(\d)/) {
	    print "$1";
	}
    }
    ($number,$animal) = ($1,$2);
    print "saw $number $animal";
}

my $a = $string =~ /\w/;
print $a;

$string = "0123456789";
my @matches = $string =~ /.([123]+)..([678]+).*/;     

print $+; 
print join(" ",@+);
print join(" ",@-);

$string = "53 big sheep";
my @x = $string =~ /[aeiou]/g;
print @x;


$string = "a1b2c3";

my @y = $string =~ /(.)(.)/g;
print join(" ",@y);