Perleinzeiler
perl -p -i.bak -e ´s/a/b/g´ datei

mysql connect/disconnect

use DBI;
$dbh = DBI->connect(„DBI:mysql:database=$database:$host“,$username,$password)
or die „Fehler beim db connect: $!“;
$dbh->disconnect();

do

$mysql_query = „DELETE FROM adressen WHERE ID=202“;
$rv = $dbh->do($mysql_query);
Rückgabewert $rv Anzahl der veränderten Zeilen

prepare-execute

$mysql_query = „SELECT count(*) FROM uniques WHERE name=?“;
$sth = $dbh->prepare($mysql_query);
$rv = $sth->execute(„Bohne“);
Rückgabewert $rv wahr bei Erfolg: if ($rv) {// erfolgreich}

Zeilenweises Auslesen mit fetchrow_array

while (@row = $sth->fetchrow_array) {
print „name: $row[0] \n“;
print „owner: $row[1] \n“;
}

Zeilenweises Auslesen als Hash mit fetchrow_hashref

while ($hash = $sth->fetchrow_hashref) {
$myName = $hash->{„name“};
$myOwner = $hash->{„owner“};
}

print „Hallole\n“;
$x = „lo“;
print „Hal$xle\n“;
print „Hal${x}le\n“;
print „Hal“.$x.“le\n“;

$text = „bla text bla“;
$text .= „weiter mehr text“;
$text .= „noch eine dritte zeile“;

$text = „bla text bla“
.“weiter mehr text“
.“noch eine dritte zeile“;

a@b.shopping
a.b@c.shopping
a.b-c@d.shopping
a-b@shopping-shopping.shopping

RegEx zum Überprüfen der Gültigkeit von eMail-Adressen

/^[a-z0-9_.\-]+@
([a-z0-9_.\-]+\.)+
[a-z]{2,9}/i

if ($irgendwas =~/…/){…}

More …

Array @liste

push, unshift, shift, pop

@osterei
$ei->{„name“} = „giftgrünes Osterei“;
$ei->{„img“} = „http://www.remote-island.org/142291/ggO.gif“;
push(@osterei,$ei);
while (scalar(@osterei)) {
$ei = shift(@osterei);
… }

More …