@Zahlen = (1..10); foreach(@Zahlen) { print $_, "\n"; } # RegEx for (1..3){ if (/1/){ &tuwas; }} |
$wert="abc": $wert=~ s/(a)(b)(c)/$1$2$3/; |
$_ = "Grün und Blau"; /und/; print "$&\n"; |
$_ = "Grün und Blau"; / und/; print "$`\n"; |
$_ = "Grün und Blau"; /und /; print "$'\n"; |
open(DATEI, "<test.txt"); while(<DATEI>) { print $_; } print "Es wurden $. Zeilen eingelesen"; close(DATEI); |
$merker=$/; $/ = undef; open(DATEI, "<test.txt"); while(<DATEI>){$dateiinhalt=$_;} close DATEI; $/=$merker; |
open (FILEHANDLE,"<test.txt"); my $string = do { local $/; <FILEHANDLE> }; close FILEHANDLE; |
$\ = ";"; print "ein Wert"; |
$, = ","; print "Wert","noch einer"; |
$" = "-"; @Liste = (1,2,3,4); print "@Liste"; |
$| = 1; |
open(DATEI, "<diedateigibtsnicht.txt") or die "Hülfe, kann Datei nicht oeffnen: $!"; |
eval "use Modul;"; if($@) { print "Das Modul kann nicht geladen werden\n"; } |
print $$; |
print $<; |
print $0; |
print "Startzeit war : $^T, "; sleep(3); print " jetzt ist es".time; |
$parameter1=shift; $parameter2=shift; $parameter3=shift; print "Der erste übergebene Parameter war $parameter1,\n"; print "Der zweite übergebene Parameter war $parameter2,\n"; print "Der dritte übergebene Parameter war $parameter3,\n"; |
use vars qw(@ISA); @ISA = qw(Base); print @ISA; |
@EXPORT = qw(%FORMULARFELDER); |
@EXPORT_OK = qw($Zeitstempel @Logdaten); |
foreach (keys %ENV){ print "$_ = $ENV{$_}\n"; } |
$, = "\n"; print keys(%SIG); |