PERL @Array richtig "füttern"??

Zitat

Original von Yazariel
Hi zusammen,

ich habe ein Problem ich schreibe Daten der timers.conf in ein Array
Hier der Code:

Code

open (TIMERS, "/etc/vdr/timers.conf") || die "timers.conf not found\n";
my @Timers =<TIMERS>;
close (TIMERS);


my $viva = "S19.2E-1-1108-12120"; # Programm (Viva2)
my @split;
foreach(@Timers){
        @split = split (/:/ ,$_);
        foreach (@split){
                if ($_ eq $viva){
                        push (@viva,@split);
                }
        }
}
print "@viva\n";

Alles anzeigen

Allerdings ist ab dem zweiten Push immer dieses "Leerzeichen" in der Zeile.
Wie bekomme ich das weg oder noch besser was muss ich machen damit es erst garnicht auftritt?

Hier die Ausgabe von @viva:

Code

1. Durchlauf:
0 S19.2E-1-1108-12120 29 1000 1100 99 99 VIVA PLUS
 0 S19.2E-1-1108-12120 28 1100 1200 99 99 VIVA PLUS
2. Durchlauf:
 0 S19.2E-1-1108-12120 29 1000 1100 99 99 VIVA PLUS
 0 S19.2E-1-1108-12120 28 1100 1200 99 99 VIVA PLUS

Alles anzeigen

Liegt an der Art wie Du das Array ausgibst, versuch mal die print-Zeile durch

foreach (@viva) {
print $_ ;
}

zu ersetzen. BTW: Ein bischen kompliziert:

#!/usr/bin/perl -w


my $viva = "S19.2E-1-1101-28106" ;
open (TIMERS, "/etc/vdr/timers.conf") || die "timers.conf not found\n";
while(<TIMERS>) {
   push @viva, $_
     if ($_ =~ /$viva/) ;
}
close (TIMERS);


foreach (@viva) {
  print $_ ;
}

Zitat

Original von Yazariel
Erstmal Vielen Dank stefan! Auch für die hilfe gestern im chat.
Habs geschafft! (wenn Dich noch erinnern kannst)

Yeep, kann ich - ich hoffe ich habe Dich nicht zu sehr verwirrt. War mir am Ende nicht mehr sicher, ob ich Dich nicht voellig falsch verstanden hatte.

Zitat

Soweit klappt das was Du geschrieben hast nur bekomme ich nicht in deinem Code das split (/:/ ,$_); richtig untergebracht.

Desweiteren greift aus irgendeinem grund mein nachfolgender Code net mehr.

Code

my $nr = 0;
foreach(@viva){
        $nr++;
        if ($nr == 2){
                $channel = $_;
        }
        if ($nr == 3){
                $day = $_;
        }
        if ($nr == 4){
                my $startbuf = reverse ($_);
                chop $startbuf;
                chop $startbuf;
                $start_mm = reverse ($startbuf);
                $start_hh = $_;
                chop $start_hh;
                chop $start_hh;
        }
        if ($nr == 5){
                my $endebuf = reverse ($_);
                chop $endebuf;
                chop $endebuf;
                $ende_mm = reverse ($endebuf);
                $ende_hh = $_;
                chop $ende_hh;
                chop $ende_hh;
        }
        if ($nr == 6){
                $prio = $_;
        }
        if ($nr == 7){
                $leb = $_;
        }
        if ($nr == 8){
                $_ =~ s/ /\_/g;
                $Titel = $_;
        }
}
###line 145###
print "Jetzt: Tag:$Monatstag $Stunden:$Minuten -->nächste Aufzeichnung: Tag:$day $start_hh:$start_mm\n";

Alles anzeigen

@viva enthaelt bei meinem Code die komplette Zeile aus timers.conf. D.h. Du musst $_ innerhalb der foreach-Schleife splitten. Etwa so:

$nr=0 ;
foreach my $viva (@viva) {
  split (/:/,$viva) ;
  ...

Zitat

er nimmt im Zweiten Durchgang net mehr Feld nummer 3 sondern nummer 2 deswegen haperts wiederum weiter unten im code
Hier die ausgabe mit deiner geänderten Version (nur der Ausgabe!!)
Ich dachte immer das diese :Argument "S19.2E-1-1108-12120" isn't numeric in numeric eq (==) at mc2mp3.pl line 145. Fehlermeldung aufgrund eines "Leerzeichens" war. Aber wenns an meiner Ausgabe lag. Wo liegt denn dann der Fehler das beim ersten Durchgang alles klappt beim 2ten es um ein Feld nach vorn versetzt ist?

Code

Durchgang 1:
0S19.2E-1-1108-1212029100011009999VIVA PLUS
0S19.2E-1-1108-1212028110012009999VIVA PLUS
Jetzt: Tag:27 20:07 -->nächste Aufzeichnung: Tag:29 10:00
Durchgang2:
0S19.2E-1-1108-1212029100011009999VIVA PLUS
0S19.2E-1-1108-1212028110012009999VIVA PLUS
Argument "S19.2E-1-1108-12120" isn't numeric in numeric eq (==) at mc2mp3.pl line 145.
Jetzt: Tag:27 19:37 -->nächste Aufzeichnung: Tag:S19.2E-1-1108-12120 :

Kann ich jetzt nicht ganz nachvollziehen, bei meinen Versuchen hier habe ich den Fehler nicht bekommen.

Hi Yazariel,

na, das ist aber mal ein widerliches Stück Code
...sorry, ist mir so rausgerutscht. Wie wärs denn damit:

my $viva = "S19.2E-1-1108-12120"; # Programm (Viva2)
my @viva = ( );
foreach my $timer (@Timers ) {
  my @split = split( /:/, $timer, 8 );
  push( @viva, join( ' ', @split ) ) if ( $split[1] eq $viva );
}

Damit bleiben dann wenigstens auch Doppelpunkte im
Filmtitel erhalten. Warum willst Du die Doppelpunkte
eigentlich entfernen?

Zitat

Achso wenn ich schon dabei bin zu fragen:
Kann ich das Array so sortieren das immer der nächste Timer oben steht?

Kommt drauf an, was Du mit dem viva Array denn nun vorhast.
Wenn Du auf die einzelnen Elemente des Timer Eintrags zugreifen
willst, könntest Du ja in @viva statt dem Originaleintrag jeweils das
ganze Array für jede Zeile speichern, der Art:

push( @viva, \@split ) ...

Dann kannst Du ganz leicht nach dem dritten und vierten Element
sortieren, also etwa so:

@viva = sort { "$a->[2]$a->[3]" cmp "$b->[2]$b->[3]" } @viva

Gruß,
Martin

Zitat

Original von Yazariel
SmartFish
Ich weiss das es für einen Fortgeschrittenen wahrscheinlich scheisse ausschaut, aber ich lerne Perl erst gerade nach dem Try&Error verfahren und das gerade mal 4 Wochen in der Freizeit.

SmartFish hat ausgesprochen, was ich Dir so direkt nicht sagen wollte.

Ich wuerde Dir aus dem O'Reilly Verlag "Einführung in Perl", "Programmieren mit Perl" oder "Perl - kurz & gut" empfehlen, je nachdem was Du schon an Programmiererfahrung hast. Auch empfehlenswert, aber erst mit ein wenig Erfahrung ist das "Perl Kochbuch".

Hi Yazariel,

Zitat

Ich weiss das es für einen Fortgeschrittenen wahrscheinlich scheisse ausschaut, aber ich lerne Perl erst gerade nach dem Try&Error verfahren und das gerade mal 4 Wochen in der Freizeit.

War auch nicht böse gemeint. Wenn ich nach Hause komme, werd ich mir den Code mal anschauen.
Du hast da einige Kleinigkeiten drin, die so nicht funktionieren können (Länge des Timers berechnen
usw.).

Bis heut Abend,
Martin

Hi Yazariel,

ich habe hier mal eine etwas "umgebaute" Version Deines Codes angehängt.
Versprochen ist versprochen Aber sei nicht böse, wenn es nur ein wenig nach Deinem alten Code aussieht.
Vor allem habe ich die ganze Sache mal in viele einzelne Funktionen gepackt, damit man wenigstens weiss, was
da so alles passiert. Aber erwarte keine Wunder: ich hab weder eine timers.conf griffbereit, noch wirklich Ahnung,
was Dein Code letztendlich für Aufrufe machen soll. Ich hab nur geraten, was Du meinst und dann programmiert,
wie man's machen könnte. Also eine super Empfehlung, oder?

Wie dem auch sei: das ist nur als Beispiel mit viel Kommentar gedacht und nicht dazu zu funktionieren. Aber
vielleicht kommst Du mit meinem Code ja ein Stück weiter und ein bisschen Inspiration ist ja auch
nicht schlecht.

Gruß,
Martin