Script

#!/usr/bin/perl

foreach $var (@INC) {
    print "$var\n";
}

# Samma som kommandot:
# $ perl -e 'print map "$_\n", @INC' 

#!/usr/bin/perl
#
# Försiktigt med detta program!
# Tar bort rader ur textfiler...
#
$word = @ARGV[0];
$file = @ARGV[1];
if ($file) {
    # Open for reading...
    open (FILE, "$file") or die "Could not open file for reading: $!";
    @lines = <FILE>;
    close FILE;
    # Open file for writing...
    open (FILE, ">$file") or die "Could not open file for writing: $!";
    for (@lines) {
        print FILE unless /$word/;
    }
    close FILE;
} else {
    print "\nUsage: ./purgeLogs.pl <word> <file>\n";
    print "(Removes all lines that contains <word> from a text <file>)\n\n";
} 

#!/usr/bin/perl

$cur_dir = pwd;
@listing = ls -la;
print "Listing for $cur_dir\n";
foreach $file (@listing) {
    print "$file";
} 

#!/usr/bin/perl
foreach $key (keys %ENV) {
    print "$key = $ENV{$key}\n";
} 

#!/usr/bin/perl
use strict;
my @files;
print "Vilken mapp vill du se? ";
chomp (my $mapp = <STDIN>);

# glob...
$mapp = undef if ($mapp =~ /^\s*$/);
chdir $mapp or die "Kunde inte byta till $mapp: $!";
@files = glob ".* *";
foreach (sort @files) {
    print "$_\n";
}