Eine Referenz auf einen String anlegen, den ich: aber dann verändern kann (Seite 3) (Allgemeines zu Perl)

[thread]6337[/thread]

Eine Referenz auf einen String anlegen, den ich: aber dann verändern kann (Seite 3)

sri

2004-06-17 01:55

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=esskar,16.06.2004, 16:46][quote=steffenw,16.06.2004, 16:34]Ach da war mir ein Fehler unterlaufen: Wenn Perl Version 7 herauskommt, dann gibt es Windows höchsten noch im Trödlerladen.[/quote]
solange linux installation noch so "kompliziert" sind, glaube ich das eher weniger![/quote]
use Knoppix!\n\n

http://mojolicio.us/

Crian

2004-06-17 02:10

User since
2003-08-04
5875 Artikel
ModeratorIn

och noe, immer von CD booten?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

sri

2004-06-17 02:16

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=Crian,17.06.2004, 00:10]och noe, immer von CD booten?[/quote]
Och noe, man kann Knoppix mit ein paar kleinen Handgriffen auf Platte installieren, viel einfacher gehts nich. ;)

http://www.pl-forum.de/bericht....ll.html

http://mojolicio.us/

esskar

2004-06-17 02:30

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

selbst das :) ist zu schwierig für einen dau - und deswegen wird *nix so schnell kein Desktop-Windows-Ersatz werden...

aber egal: das ist jetzt wieder OT!

sri

2004-06-17 02:38

User since
2004-01-29
828 Artikel
BenutzerIn

Hier mal eine Lösung mit etwas schwarzer Magie. ;)

Code: (dl )

 perl -Mstrict -e 'my $result = \do {local $_ = ""}; $$result = "test"; print $$result'

http://mojolicio.us/

havi

2004-06-17 11:19

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=steffenw,16.06.2004, 15:15]das geht nicht, weil '' eine Konstante ist:

Code: (dl )

1
2

my $result = \'';
$$result .= 'text';

so funktioniert es:

Code: (dl )

my $result;
{ my $value = '';
  $result = \$value;
}
$$result .= 'text';

das funktioniert nicht:

Code: (dl )

1
2
3

my $result = '';
$result = \$result;
$$result .= 'text';

Nun, wie schreibe ich so etwas? Variante 2 ist mir zu lang.[/quote]

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $scalar = 'EINS';
my @array  = qw(eins zwei drei);
my %hash   = ('eins' => '1', 'zwei' => '2');

test_sub(\$scalar,\@array,\%hash);

sub test_sub {

   my $scalarref = shift;
   my $arrayref  = shift;
   my $hashref   = shift;

   print 'SCALARREF....', $$scalarref.'HALLO', "\n";
   print 'ARRAYREF.....', @$arrayref,          "\n";
   print 'ARRAYREF_1...', $$arrayref[0],       "\n";
   print 'ARRAYREF_1...', ${$arrayref}[0],     "\n";
   print 'ARRAYREF_1...', $arrayref->[0],      "\n";
   print 'HASHREF......', keys %$hashref,      "\n";
   print 'HASHREF_1....', $$hashref{'zwei'},   "\n";
   print 'HASHREF_1....', ${$hashref}{'zwei'}, "\n";
   print 'HASHREF_1....', $hashref->{'zwei'},  "\n";

} # test_sub

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

View all threads created 2004-06-16 17:15.