Use of implicit split to @_ is deprecated umgehen (gelöst) (Allgemeines zu Perl)

[thread]16062[/thread]

Use of implicit split to @_ is deprecated umgehen [gelöst]

Leser: 23

Articles: hide open all | hide show old branches

+15 replies
bianca

2011-03-12 15:59
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Tag alle Zusammen,

habe im Netz folgende Syntax gefunden.
Ist das OK oder nicht ratsam?
Wie kann ich am "saubersten" ermitteln, wieviele durch Komma getrennte Werte eine Variable enthält?

Danke Euch
Code (perl): (dl )

1 2 3 4 5 6

#!/usr/bin/perl -w use strict; use warnings; my $feld7 = '3,4,5'; print "ja" if @{[split /,/,$feld7]} > 1;
Edit: Geht hier nicht um Performance, dieser Codeabschnitt "hat Zeit".
10 print "Hallo"
20 goto 10
- +4 replies
- GwenDragon
  
  2011-03-12 16:09
  User since
  2005-01-17
  14761 Artikel
  Admin1
  Code (perl): (dl )
  
  print "ja" if ($feld7 =~ tr/,//);
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - bianca
    
    2011-03-12 16:23
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke Dir. Gefällt mir deshalb nicht so gut, weil es mir nicht um die Kommata geht sondern um die Werte. Und für den Fall eines Erfassungsfehlers bringt Deine Lösung ein für mich falsches Ergebnis:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    #!/usr/bin/perl -w use strict; use warnings; my $feld7 = '3,'; print "ja\n" if @{[split /,/,$feld7]} > 1; print "ja GwenDragon\n" if ($feld7 =~ tr/,//);
    
    Edit: Mein "Codesalat" bleibt immernoch sauber im Ergebnis.
    Last edited: 2011-03-12 16:24:43 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - renee
      
      2011-03-13 08:34
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Du kannst auch bei GwenDragons vorschlag das "> 1" dranhängen...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - FIFO
        
        2011-03-13 08:39
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Moin! Lies erstmal weiter :) Es sollen ja nicht die Kommas, sondern die Werte gezählt werden ("1,,,,3,4,,,5")
        
        Gruß FIFO
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +3 replies
- FtR
  
  2011-03-12 16:42
  User since
  2003-08-20
  39 Artikel
  BenutzerIn
  Hab grad kein Perl an der Hand aber
  
  "perldoc -f split" Enthält folgenden satz
  
  In scalar context, returns the number of fields found.
  
  Also sollte
  
  Code (perl): (dl )
  
  print "ja" if (scalar(split(",",$feld7)) > 1);
  
  auch tun
  
  FtR
  Last edited: 2011-03-12 17:06:45 +0100 (CET)
  
  Code: ()
  
  1 2
  
  print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg); sub f{eval(@_?$_:"'$&+'x3");}
  - bianca
    
    2011-03-12 17:07
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-03-12T15:42:25 FtR
    auch tun
    
    Nicht wirklich, sonst würde ich nicht fragen :)
    Siehe msg #146421
    10 print "Hallo"
    20 goto 10
  - bianca
    
    2011-03-12 17:09
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-03-12T15:42:25 FtR
    
    Code (perl): (dl )
    
    print "ja" if (scalar(split(",",$feld7)) > 1);
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    #!/usr/bin/perl -w use strict; use warnings; my $feld7 = '3,'; print "ja\n" if @{[split /,/,$feld7]} > 1; print "ja GwenDragon\n" if ($feld7 =~ tr/,//); print "ja fuer pq was mir als die einfachste Loesung erscheint aber warnt\n" if split (/,/,$feld7) > 1; print "ja fuer FtR, der/die glaubt, ich haette nicht alles versucht\n" if (scalar(split(",",$feld7)) > 1); system("perl -v");
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    >perl test.pl Use of implicit split to @_ is deprecated at test.pl line 8. Use of implicit split to @_ is deprecated at test.pl line 9. ja GwenDragon This is perl, v5.10.1 (*) built for MSWin32-x86-multi-thread Copyright 1987-2009, Larry Wall
    
    10 print "Hallo"
    20 goto 10
- +2 replies
- pq
  
  2011-03-12 16:58
  User since
  2003-08-04
  12208 Artikel
  Admin1
  mit welcher perl-version bekommst du diese warnung? ich bekomme sie mit v5.10.0 nicht. ich bekomme sie nur, wenn ich das ergebnis von split tatsächlich nicht benutze, etwa so:
  
  Code (perl): (dl )
  
  1 2
  
  my $feld7 = "3,4,5"; split /,/,$feld7;
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - bianca
    
    2011-03-12 17:05
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-03-12T15:58:19 pq
    mit welcher perl-version bekommst du diese warnung?
    
    Strawberry 5.10.1
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    #!/usr/bin/perl -w use strict; use warnings; my $feld7 = '3,'; print "ja\n" if @{[split /,/,$feld7]} > 1; print "ja GwenDragon\n" if ($feld7 =~ tr/,//); print "ja fuer pq was mir als die einfachste Loesung erscheint aber warnt\n" if split (/,/,$feld7) > 1; system("perl -v");
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    >perl test.pl Use of implicit split to @_ is deprecated at test.pl line 8. ja GwenDragon This is perl, v5.10.1 (*) built for MSWin32-x86-multi-thread Copyright 1987-2009, Larry Wall [GEKÜRZT...]
    
    10 print "Hallo"
    20 goto 10
- +5 replies
- FtR
  
  2011-03-12 18:18
  User since
  2003-08-20
  39 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5
  
  #!/usr/bin/perl -w use strict; my $feld7 = '3,'; print "ja\n" if @{[split /,/,$feld7]} > 1; print "ja fuer FtR, der/die das mit dem -w nicht getestet hat ;)" if scalar($feld7 =~s/,(?=.)//g)>0;
  
  Das hat den vorteil das die umkopiererei wegfällt,
  hat aber den Nachteil, das die Variable verändert wird.
  
  FtR
  
  Code: ()
  
  1 2
  
  print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg); sub f{eval(@_?$_:"'$&+'x3");}
  - +4 replies
  - bianca
    
    2011-03-12 19:29
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-03-12T17:18:01 FtR
    hat aber den Nachteil, das die Variable verändert wird.
    
    Jo, das ist ja schön. Danke für den Beitrag aber das scheidet aus und das war auch nicht die Ursprungsfrage.
    10 print "Hallo"
    20 goto 10
    - FtR
      
      2011-03-12 20:28
      
      User since
      2003-08-20
      39 Artikel
      BenutzerIn
      
      Wie kann ich am "saubersten" ermitteln, wieviele durch Komma getrennte Werte eine Variable enthält?
      
      Da solltest du dir aber genau die Randbedingungen abschauen
      
      Bei der aktuell vorgeschlagenen Methode @{[split /,/,$feld7]}werden unterschiedliche Werte für die folgenden Strings ausgegeben
      
      "3,,,,,"
      ",,,,,3"
      ",,3,,,"
      
      Obwhol dies immer nur 1 Wert ist
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      #!/usr/bin/perl -w use strict; machma ("3,,,,"); machma (",3,,,"); machma (",,,,3"); sub machma{ my $wert = shift; my $buff = $wert; print "\n\"$wert\"\n"; print "Array Stunt\n"; print scalar(@{[split /,/,$wert]}); print "\nAnzahl der Felder\n"; print scalar($wert=~s/,(?=.)//g)+1; $wert=$buff; print "\nAnzahl der Felder mit Wert\n"; print scalar($wert=~s/,(?!\,)(?=.)//g)+1; print "\n"; }
      
      AUSGABE
      
      "3,,,,"
      Array Stunt
      1
      Anzahl der Felder
      4
      Anzahl der Felder mit Wert
      1
      
      ",3,,,"
      Array Stunt
      2
      Anzahl der Felder
      4
      Anzahl der Felder mit Wert
      1
      
      ",,,,3"
      Array Stunt
      5
      Anzahl der Felder
      5
      Anzahl der Felder mit Wert
      1
      
      FtR
      PS das mit dem scalar mach ich bewußt auch für deine Lösung um ganz klar den Context zu definieren.
      
      Last edited: 2011-03-12 20:43:03 +0100 (CET)
      
      Code: ()
      
      1 2
      
      print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg); sub f{eval(@_?$_:"'$&+'x3");}
    - +2 replies
    - FIFO
      
      2011-03-13 07:59
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2011-03-12T18:29:08 bianca
      Jo, das ist ja schön. Danke für den Beitrag aber das scheidet aus und das war auch nicht die Ursprungsfrage.
      
      Geht aber in die richtige Richtung. Wenn es "sauber" sein soll, ist die RegEx immer noch am solidesten, nur besser nicht als s///, dann bleibt die Variable unverändert:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      #!/usr/bin/perl use warnings; use strict; while (my $s = <DATA>) { chomp $s; my $d = () = $s =~ /(?:(?:^|,)[^,])/g; print "$d\n"; } __DATA__ 1,2,3,4,5 ,1,2,3,4 1,2,3,4,, ,,,,,,1,2,3,,,,,4,,,,,,,,
      
      oder als Funktion (ohne lokale Kopie des Strings):
      
      Code (perl): (dl )
      
      1 2 3
      
      sub howmany { return scalar(() = $_[0] =~ /(?:(?:^|,)[^,])/g); }
      
      Noch einfacher:
      
      Code (perl): (dl )
      
      1 2 3
      
      sub howmany { return scalar(() = $_[0] =~ /(?:[^,]+)/g); }
      
      In die Zeichenklasse kann man auch was anderes reinschreiben, um gleich die Werte auf Korrektheit zu prüfen, z.B. [.,0-9-] oder POSIX-Klassen verwenden.
      
      Gruß FIFO
      
      Editiert von FIFO: sub ergänzt
      Last edited: 2011-03-13 08:36:54 +0100 (CET)
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - bianca
        
        2011-03-13 09:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-13T06:59:52 FIFO
        Noch einfacher:
        
        Code (perl): (dl )
        
        1 2 3
        
        sub howmany { return scalar(() = $_[0] =~ /(?:[^,]+)/g); }
        
        Das nehm ich.
        Danke an alle!
        10 print "Hallo"
        20 goto 10

View all threads created 2011-03-12 15:59.