pointer auf string (Allgemeines zu Perl)

[thread]20021[/thread]

pointer auf string

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+4 replies
Gast Graf Herschel

2016-03-16 21:20
Einen schönen guten Abend

Jedesmal wenn ich von C auf Perl umsteige, bekomme ich Verständnisprobleme.

my $str="Hallo";
sqlite_FetchRow($dbh,\$str) || err_exit();
Code: (dl )

1 2 3 4 5 6

sub sqlite_FetchRow { my($dbh,$str)=@_; $str="123"; return 1; }
print("$str\n");
Hallo

Wie erhalte ich "123" ??

Danke
Last edited: 2016-03-16 21:36:15 +0100 (CET)
- bianca
  
  2016-03-16 21:40
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  $$str='123'
  10 print "Hallo"
  20 goto 10
- +2 replies
- murphy
  
  2016-03-16 21:46
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  In C musst Du Zeiger dereferenzieren, wenn Du auf ihr Ziel zugreifen willst und in Perl musst Du Referenzen auch dereferenzieren, wenn Du auf ihr Ziel zugreifen willst.
  
  Du schreibst in Perl so etwas:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use 5.012; sub doit { my ($strref) = @_; $strref = "blubb"; } my $str = "foo"; doit(\$str); say $str;
  
  Dabei kommt natürlich "foo" heraus, denn das ist ungefähr so, wie wenn Du in C das hier machst:
  
  Code (c): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #include <stdio.h> void doit(const char **strref) { strref = (const char **)"blubb"; } int main(void) { const char *str = "foo"; doit(&str); printf("%s\n", str); return 0; }
  
  Bei dem C-Code merkst Du schon an dem hässlichen Typecast in Zeile 4, dass das konzeptionell irgendwie blödsinnig ist ;-) Was Du eigentlich willst, sieht in Perl so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use 5.012; sub doit { my ($strref) = @_; $$strref = "blubb"; } my $str = "foo"; doit(\$str); say $str;
  
  Und die Entsprechung in C wäre das:
  
  Code (c): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #include <stdio.h> void doit(const char **strref) { *strref = "blubb"; } int main(void) { const char *str = "foo"; doit(&str); printf("%s\n", str); return 0; }
  
  Man beachte insbesondere die Dereferenzierungsoperatoren $ bzw. * in Zeile 5 bzw. 4.
  When C++ is your hammer, every problem looks like your thumb.
  - Gast Graf Herschel
    
    2016-03-16 21:57
    Code: (dl )
    
    $$str='123'
    
    Ich hatte es vergessen.
    
    Vielen Dank an alle!!
    Last edited: 2016-03-16 22:07:05 +0100 (CET)

View all threads created 2016-03-16 21:20.