PERL - Text Auseinander Nehmen

[mr_kaktus]

Hi @all,

kann mir jemand sagen, wie ich diesen String so auseinander Nehmen kann, dass ich nur die erste Zeile bekomme?

cb652b435fca233b291951f330b24a16 /cust/MySQL_BACKUP/mysqldump_070223.gz

Ich möchte am Schluss nur die Checksumme haben, also das hier:

cb652b435fca233b291951f330b24a16

Also in awk wäre das überhaupt kein problem, aber wie löse ich sowas in Perl?

Ich hatte mir überlegt, ob ich nicht einfach die String länge des Pfades mit length() heraus findet und es dann mit Subtring auseinander nehme. Aber muss es doch in Perl eine einfache Möglichkeit geben oder?

[dr.disk]

$checksum = (split / /, $line)[0];

oder

$line =~ m/^([^ ]+)/o and $checksum = $1;

... wobei in $line die Zeile und danach in $checksum eben selbige steht.

[mr_kaktus]

$checksum = (split / /, $line)[0];

Genau das habe ich gesucht, das Split :upps