#!/usr/bin/perl


print "Content-type:text/html\n\n";

$_ = "/tmp_mnt/pierwszy/drugi/trzeci";   # ustawmy domyslny argument
if (/^\/tmp_mnt/)                        # jesli $_ zaczyna (^) sie od /tmp_mnt
{ print "$_ jest automatycznie mountowany\n"; }   # poinformuj o tym

$file = "/auto/home/pat/c/utmpdmp.c";    # jakis plik
($base) = ($file =~ m|.*/([^/]+)$|);     # za base podstawiamy utmpdmp.c
#($base) i ($file ...) - chcemy kontekst znakowy
#$file =~ - dopasowujemy wzorzec do zmiennej file
#m|  | - stosujemy |, zeby moc we wzorcu miec /
#.*/ - dowolny znak zero lub wiecej razy a za nim /
#$ - dopasuj tak by dopasowanie jak najblizej konca
#[^/] - znak z klasy z wyjatkiem /
#[^/]+ - dowolny znak z wyjatkiem / raz lub wiecej
#([^/]+) - kontekst znakowy
print "$base \n";                           # wypisz podstawienie
print "$1\n";				        # tez to samo

