string found where operator expected (solved) (Allgemeines zu Perl)

[thread]20091[/thread]

string found where operator expected [solved]

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+22 replies
bianca

2016-06-06 00:09
User since
2009-09-13
7016 articles
BenutzerIn
'nabend!

Wie ist im folgenden Script die Syntax für print ohne Fehlermeldung?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl use strict; use warnings; if (open(my $fh,'>','test.xxx')) { test(\$fh); } else { die "Nein, wegen $!" } sub test{ my ($t) = @_; print $$t "test\n"; # <-- dies soll in die Datei geschrieben werden }
Bei einem String nähme man auch $$t, geht hier nicht.
Es geht um Strawberry 5.18.4 auf Windows 7.

Editiert von bianca: Ergänzungen
Last edited: 2016-06-06 06:56:19 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +2 replies
- charly54
  
  2016-06-06 03:38
  User since
  2015-04-24
  10 articles
  BenutzerIn
  Hallo bianca,
  Du musst die beiden Ausgaben konkatenieren (verbinden).
  Meine Vorschläge:
  
  Code (perl): (dl )
  
  print $$t . "test\n";
  
  oder
  
  Code (perl): (dl )
  
  print $$t , "test\n";
  
  Viel Erfolg & Gruß,
  charly54
  - bianca
    
    2016-06-06 06:47
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Nee, leider nicht.
    Dann schreibt es auf STDOUT das hier raus anstatt einfach "test\n" in die Datei.
    
    Quote
    GLOB(0x3ac098)test
    
    $t ist ein Verweis auf das Filehandle.
    Ich ändere das mal im ersten Beitrag, damit man das sieht.
    10 print "Hallo"
    20 goto 10
- +2 replies
- renee
  
  2016-06-06 07:20
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  Code: (dl )
  
  print {$$t} "String";
  
  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/
  - bianca
    
    2016-06-06 07:39
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke dir, renee!!
    10 print "Hallo"
    20 goto 10
- +3 replies
- GwenDragon
  
  2016-06-06 10:37
  User since
  2005-01-17
  14835 articles
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5
  
  sub test{ my ($t) = @_; my $fh = $$t; print $fh "test\n"; # <-- dies soll in die Datei geschrieben werden }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - bianca
    
    2016-06-06 12:49
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Das ist auch wieder eine Kopie, richtig?
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2016-06-06 13:32
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Ja. Wieso?
      
      Willst du in deiner sub das Filehandle wechseln oder warum benutzt du eine referenz anstatt den Handler als Parameter-Kopie zu übergeben?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- Linuxer
  
  2016-06-06 12:41
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Warum übergibst Du eigentlich eine Referenz auf den lexikalischen Filehandle und warum nicht direkt?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  sub foo { my $handle = shift; print $handle "tralala\n"; } foo( $fh );
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - bianca
    
    2016-06-06 12:48
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2016-06-06T10:41:51 Linuxer
    Warum übergibst Du eigentlich eine Referenz auf den lexikalischen Filehandle und warum nicht direkt?
    
    Ich hab mir das so angewöhnt, weil ich davon ausgehe, dass eine Referenz im Speicher nur ein Zeiger und keine Kopie ist.
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2016-06-06 13:34
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Was glaubst du damit zu erreichen? 4-10 Bytes sparen? Ist das ein Embedded System oder sowas wie ein RasPi, mit wenig RAM?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Raubtier
      
      2016-06-06 13:49
      
      User since
      2012-05-04
      1081 articles
      BenutzerIn
      
      Sind nicht in Perl eh alle Parameter Referenzen? Müsste das hier nicht ein GV* sein? Ich dachte, dass in dem GV dann die Referenz auf das eigentliche Handle drin ist, d.h. so und so nicht wirklich viel kopiert wird.
      
      Bianca: nicht optimieren, weil "ich denke", sondern nur wenn man erstens gemessen hat und es auch relevant ist (aber natürlich nichts unnütz kopieren).
      
      Disclaimer: bin nicht wirklich mit Perl-Interna vertraut.
- +10 replies
- bianca
  
  2016-06-06 14:08
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Dank an GwenDragon und Raubtier. Ja man spart in diesem Fall nicht viel aber ich möchte mir nicht so viele Sonderheiten merken müssen, da platzt mein Kopf und ein Hobby soll m. E. Spaß machen und nicht dauernd wissenschaftliche Abhandlungen erfordern :)
  10 print "Hallo"
  20 goto 10
  - +9 replies
  - Muffi
    
    2016-06-07 08:41
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    So ganz hab ichs noch nicht verstanden.
    $t ist ein Verweis auf ein Filehandle. Was sparst du dir nun mit einem Verweis-Verweis?
    1 + 1 = 10
    - +8 replies
    - bianca
      
      2016-06-07 09:11
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      Ich gebe generell immer nur Verweise in eine sub, damit im Speicher keine Kopien erzeugt werden. Da wird ja im Produktivumfeld viel viel mehr übergeben, ich hab nur die Problemstelle rausgepickt. Und das wollte ich in diesem Fall auch mit dem Filehandle tun, klappte aber mit dem print nicht. Das ist alles.
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - thomas38
        
        2016-06-07 21:07
        
        User since
        2012-11-04
        30 articles
        BenutzerIn
        
        Wenn bei einer meiner Subs die Parameter mal wieder zu viel werden, ist das für mich ein sicheres Zeichen, nun lieber eine gesegnete Referenz zu übergeben - also OO zu benutzen.
        
        Vielleicht auch für Dich hilfreich?
        
        bianca
        
        2016-06-08 06:48
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Ich meinte nicht die Anzahl der Parameter sondern die Menge der Daten auf die die Referenzen zeigen. In der Regel übergebe ich drei bis vier Referenzen auf Hashes, da hab ich dann bis in das hinterletzte Script alles was ich brauche.
        10 print "Hallo"
        20 goto 10
      - +5 replies
      - Muffi
        
        2016-06-08 05:50
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Achso, du übergibst alles als Referenz, egal ob es schon eine ist oder nicht.
        Da hat natürlich jeder seinen eigenen Stil, aber das find ich nicht sonderlich gut.
        
        Nehmen wir mal eine Sprache, wo das ein wenig expliziter hingeschrieben wird, Pascal
        
        Code: (dl )
        
        procedure foo(const bar: Integer);
        
        und
        
        Code: (dl )
        
        procedure foo(var bar: Integer);
        
        Variante 2 übergibt automatisch eine Referenz, wenn ich die Funktion aufruf, Variante 1 die Value. Und ich seh auch gleich für was der Parameter gut ist. Also soll nur ein Wert übergeben werden und innerhalb der Funktion const sein oder ist er als out-parameter gedacht, der in der Funktion geändert wird.
        Und auch wenn Perl da nicht ganz so explizit ist: Wenn ein string als Referenz übergeben wird geh ich beim Lesen erstmal von einem out-parameter aus.
        Lange Rede: Mach dir die Lesbarkeit von Code nicht kaputt, nur weil du hoffst bei heutigen Rechnern mit 8gig Speicher 50Byte einparen zu können.
        1 + 1 = 10
        
        +4 replies
        
        bianca
        
        2016-06-08 06:55
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Wenn $test eine Referenz ist übergebe ich auch nur diese, also sub_test($test). Ist denn ein Filehandle eine Referenz? Ach du Schande, hab das mal getestet, das ist ja schon eine Referenz. Au weia.
        Muffi, ich hab das oben in deinem Beitrag nicht geschnallt. Sorry.
        Ist denn im Sprachgebrauch für soetwas ein Verweis dasselbe wie eine Referenz?
        (Hab es geändert!)
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        Muffi
        
        2016-06-08 09:20
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Verweis und Referenz kannst du als das Gleiche ansehn, ja.
        
        Vielleicht wird's mit Perlcode klarer:
        
        Code (perl): (dl )
        
        foo($mein_string) # $mein_string kann ich der Sub nicht nach draussen geändert werden
        
        aber:
        
        Code (perl): (dl )
        
        foo(\$mein_string) # $mein_string kann geändert werden.
        
        1 + 1 = 10
        
        +2 replies
        
        Linuxer
        
        2016-06-08 13:08
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        2016-06-08T07:20:24 Muffi
        
        Code (perl): (dl )
        
        foo($mein_string) # $mein_string kann ich der Sub nicht nach draussen geändert werden
        
        Es mag Haarspalterei sein, aber das ist so nicht ganz korrekt ;-)
        
        Wenn Du innerhalb der Subroutine die Argumente an eigene Variablen übergibst und diese dann bearbeitest, stimmt das.
        
        Code: (dl )
        
        1 2 3 4 5
        
        sub foo { my $string = shift; $string =~ s/foo/bar/; }
        
        Wenn Du aber innerhalb der Subroutine direkt auf die Elemente von @_ zugreifst, änderst Du sehr wohl die originale Variable; denn @_ enthält "Aliase" auf die eigentlichen Argumente/Variablen.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        #! /usr/bin/perl use strict; use warnings; use 5.010; sub foo { $_[0] =~ s/Echo/Otto/; } my $text = "Hallo Echo"; foo($text); # schau nach, was nun in $text steckt say $text;
        
        Nachtrag:
        Werden fixe Strings übergeben, gibt es Fehlermeldungen, wenn man dann versucht, eine Änderung am Alias vorzunehmen:
        
        Code: (dl )
        
        1 2 3 4
        
        foo( "Hallo Welt" ); # ergibt dann # Modification of a read-only value attempted at t.pl line 8.
        
        Nachtrag2:
        Wer die Doku dazu sucht: perlsub, 3. Absatz in der Description
        Last edited: 2016-06-08 13:18:24 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Muffi
        
        2016-06-09 06:30
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Nö, keine Haarspalterei.
        Ich hab nur schon so lang nicht mehr auf @_ geschrieben, dass ich garnicht drangedacht hab.
        Guter Hinweis.
        1 + 1 = 10

View all threads created 2016-06-06 00:09.