Re: [suse-programming] Re: Welche Shell für welchen Zweck?

7 Jun 2002


      Moin,

* Bernhard Walle  [02-06-07 10:42]:
...
On Thu, 06 Jun 2002 at 23:10 (+0200), Thorsten Haude wrote:
...
Nehmen wir einen String:
- - - Schnipp - - -
sub parseFilename
{
    $filename = shift;
    $filename =~ /(.*)\/([^\/]+)/;
    return $1, $2
}
- - - Schnapp - - -
In der Tat: Da macht der Vergleich Perl/C Sinn. Mit C müsste man der
Funktion einen Zeiger auf ein Array übergeben, das dann mit Werten
gefüllt wird. Listenrückgabewerte gibt es in C nicht.
Sogar mit einem Wert hätte man bei C deutlich mehr Probleme.
...
Aber mir fällt gerade noch was schöneres ein:
- - - Schnipp - - -
sub name {
       $name = shift;
       ($vorname, $nachname) = $name =~ /^(\w*)\s+(\w*)/;
if (wantarray()) { return ($vorname, $nachname) }
       else { return $nachname }
}
- - - Schnapp - - -
Also sowas in der Art. Meine Beispiele sind nicht immer besonders
sinvoll ;-)
Doch, ist schon sinnvoll, dieses wantarray() habe ich gerade erst
kennengelernt und muß ich mir noch einprägen.
Thorsten
-- 
It is dangerous to be right when the government is wrong.
	- Voltaire