Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8333[/thread]

string in zahl (Seite 2)

Leser: 1


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
vayu
 2006-09-15 14:56
#69905 #69905
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
ja ok hast recht :)

soweit habe ich mal wieder nicht gedacht
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
heihon
 2006-09-15 16:37
#69906 #69906
User since
2006-09-15
15 Artikel
BenutzerIn
[default_avatar]
Im Zusammenhang mit Zahl vs String bin ich übrigens gerade gestern über etwas merkwürdiges gestolpert - laut Data::Dumper sieht $. und 0 + $. aus, als wäre es ein String:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!perl -w
use strict;
use warnings;
use Data::Dumper;

my $fname = "testfile.txt";
my $ofh;
open ($ofh, ">", $fname) or die $^E;
print $ofh "Zeile 1\n", "Zeile 2\n";
close $ofh;

my $ifh;
open ($ifh, "<", $fname) or die $^E;
my $line = <$ifh>;

my @ar = ( 
   $.,         # String?
   0 + $.,     # String - immer noch?
   1 + $. - 1, # Zahl
);

my $d = Data::Dumper->new([\@ar], [qw(ar)]);
print $d->Dump;

__END__

Ergibt:

$ar = [
        '1',
        '1',
        1
      ];


Sehr merkwürdig.
pq
 2006-09-15 16:59
#69907 #69907
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
Code: (dl )
1
2
use Devel::Peek;
Dump($irgendeine_variable);

damit siehst du, wie eine variable intern so aussieht...
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: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
heihon
 2006-09-15 18:13
#69908 #69908
User since
2006-09-15
15 Artikel
BenutzerIn
[default_avatar]
@pq: Danke - hab's sofort ausprobiert

Code: (dl )
1
2
3
4
5
6
7
8
9
..
use Data::Dumper;
use Devel::Peek;
..
print $d->Dump;

Dump($ar[0]);
Dump($ar[1]);
Dump($ar[2]);


und erhalte:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SV = PVMG(0x1821a9c) at 0x18cca44
  REFCNT = 2
  FLAGS = (POK,pIOK,pPOK)
  IV = 1
  NV = 0
  PV = 0x18d6974 "1"\0
  CUR = 1
  LEN = 4
SV = PVNV(0x18b7464) at 0x225284
  REFCNT = 2
  FLAGS = (NOK,POK,pNOK,pPOK)
  IV = 0
  NV = 1
  PV = 0x18d6bcc "1"\0
  CUR = 1
  LEN = 36
SV = IV(0x18269f0) at 0x1854ec4
  REFCNT = 2
  FLAGS = (IOK,pIOK)
  IV = 1


also: Es sieht nicht nur aus wie String, es IST String.
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2006-09-15 10:44.