perl oneliner um die Distro rauszubekommen

[framp]

Der folgende Code funktioniert soweit ganz gut um die Linux Distro in Perl rauszubekommen. Hat jemand eine Idee wie man daraus einen oneliner machen kann? (Im Code habe ich zum Testen für die verschiedenen Arten eine Loop eingebaut. Die ist im oneliner natürlich nicht notwendig ;-) )

my $versionFile = `ls /etc/*[-_]*`;
my $v;

foreach $v (`ls /etc/*[-_]*`) {
        if ($v=~/\/etc\/([^-_]+)[-_](release|version)/) {
                print "Linux distro is $1\n";
        }
}

 

[}-Tux-{]

Hmm was suchst du denn genau? So ganz verstehe ich deine Frage noch nicht.
Meinst du sowas wie

print grep { /([^-_]+)[-_](release|version)/ } `ls /etc`;

?

}-Tux-{

 

[framp]

So ganz verstehe ich deine Frage noch nicht.

Eine schnelle Art die Linux Distro rauszubekommen ist nach /etc/[+_](release|version) zu greppen und den String vor dem [_-](version|release) auszugeben.

Dein Vorschlag sieht schon sehr gut aus :up: . Es fehlt noch das Extrahieren des Strings vor [-_] vom Filenamen und dessen Ausgabe ;-)

Edit: Wenn man noch

| sed s/[_-].*//

am Ende anhängt liefert es das gewünschte Ergebnis. Geht es auch ohne grep und sed - also plain perl? (Eher akademische Frage :roll: )

 

[}-Tux-{]

Geht es auch ohne grep und sed - also plain perl? (Eher akademische Frage :roll: )

Das grep hat nichts mit /bin/grep zu tun (schau dir mal perldoc -f grep an). Ansonsten versuch mal dies hier:

print grep { s/([^-_]+)[-_](release|verson)/$1/ } `ls /etc`;

Aber es gibt bestimmt noch elegantere Lösungen.. ist ja schliesslich perl


}-Tux-{