ABSATZWEISE:

#!/usr/bin/perl -w

{
  local $/ = '';  #Absatzmodus
  while(<>){      #Absatz in $_
    print;
    print "\t\t\tABSATZ - weiter mit <STRG>+<D>\n";
    <STDIN>;
   }
}

KOMPLETT EINLESEN:

#!/usr/bin/perl -w

{
  local undef $/;  #Slurp mode
  while(<>){       #Kompletter Inhalt in $_
    print;
   }
}

SATZWEISE:

#!/usr/bin/perl -w

{
  local $/=".";  #Satztrennzeichen '.'
  while(<>){
    print;
    <STDIN>;     #Weiter mit STRG+D
   }
}

Bei diesem Beispiel ist man besser mit einer Pattern-Matching-Operation beraten.

BESTIMMTE ZEILE:

#!/usr/bin/perl -w

{
  local $/ = "\n";
  $suchzeilennr=50;
  while(<>){
    print $. ,":" , $_ if $. == $suchzeilennr;
    }
}

ZEILENWEISE LESEN:

#!/usr/bin/perl -w

{
  local $/ = "\n";
  while(<>){
    print $. ,":" , $_;
   }
}

WORTWEISE LESEN:

#!/usr/bin/perl -w

undef $/;                      #Slurp mode
$_=<>;                         #alles in $_
@worte=split(m/\s/, $_);       #Aufspliten durch Whitespace-Zeichen
print "@worte";
print "\n\nElemente im Array : " , $#worte+1 , "\n";

NACH DATEIENDUNGEN SUCHEN:

#!/usr/bin/perl -w

@file = <*>;   #keine Files die mit einem '.' beginnen...
@file2= <.*>;  #Alle versteckten Files die mit einem '.' beginnen...
@file3= <*.c>; #Alle C-Files (z.B. test.c)
@file4= <* .* *.c>; #Alle zusammen.....
@file5= <*.txt>;     #alle Textdateien

print join(' ', @file) , "\n\n";
print join(' ', @file2) , "\n\n";
print join(' ', @file3) , "\n\n";
print join(' ', @file4) , "\n\n";
print join(' ', @file5) , "\n\n";

DATEIENDUNG ÄNDERN :

#!/usr/bin/perl -w

#Dateiendung verändern aus *.c wird *.c.bak
foreach $rename(<*.tax>){
  rename($rename, "$rename".".bak") or warn("Fehler bei rename....\n");
  }

DATEIENDUNG WIEDER RÜCKGÄNGIG MACHEN:

#!/usr/bin/perl -w

#Dateiendung verändern aus *.c.bak wird *.c
foreach $rename(<*.bak>){
  $temp=$rename;
  $temp=~s/\.bak$//;
  rename("$rename", "$temp");
  }