Path: csiph.com!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Stefan Reuther <stefan.news@arcor.de>
Newsgroups: de.alt.folklore.computer
Subject: Re: COMAL
Date: Thu, 22 May 2025 18:45:25 +0200
Lines: 30
Message-ID: <100nrc5.1vs.1@stefan.msgid.phost.de>
References: <m8o27kFelnhU3@mid.individual.net> <1006u01$2vsuo$1@news1.tnib.de> <m8vvmmFnpujU5@mid.individual.net> <100en1o$3i1vf$1@news1.tnib.de> <slrn102msu9.hp9q.hjp-usenet4@trintignant.hjp.at> <1t682cb016i265761n3e8%sfroehli@Froehlich.Priv.at> <slrn102pigt.1mav1.hjp-usenet4@trintignant.hjp.at> <11t682e0e0ai7803en3e8%sfroehli@Froehlich.Priv.at> <100l59e$hbj$1@news.bawue.net> <100la2e$82ni$1@news1.tnib.de> <100lcfc$lcu$1@news.bawue.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net eS62uAoHDzZgajWppEK/iA1CZZ5QxzxexV66sb1PYVgVxmZqKU
Cancel-Lock: sha1:DzLNKouUGauiiS728O1voGkSH3Y= sha256:WYuLYnHAR7f+jhf8w8kEZd+YLTkHilqTggCcWocgiYY=
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:68.0) Gecko/20100101 Thunderbird/68.12.1 Hamster/2.1.0.1538
In-Reply-To: <100lcfc$lcu$1@news.bawue.net>
Xref: csiph.com de.alt.folklore.computer:50156

Am 21.05.2025 um 22:55 schrieb Gerrit Heitsch:
> Sowas hier:
> 
> if ($line
> =~/^\(\"(.*?)\"\s+\".*?\"\s+(\d.*?)\s+(\d.*?)\s+(\d.*?)\)\s+(.*?)$/)
>    {
>     $value1 = $1;
>     $value2 = $2;
>     $value3 = $3;
>     $value4 = $4;
>     $value5 = $5;
>    }

Idiomatisch ist eigentlich was in der Art

   if (($value1, $value2, ...) = $line =~ /.../)

Das ändert aber nix dran, dass man sich bei Perl schon gerne mal die
Finger bricht, insbesondere, wenn man Datenstrukturen bauen will

   print @{$x->{a}{b}[$#{$c->[0]}]{$x->{y}}}

Da ist Python irgendwie geschmeidiger; aus dem Kopf

   print x.a.b[len(c[0])][x.y];

Und das sag ich als einer, der eigentlich ausschließlich in Perl skriptet.


  Stefan