In C (und C++) kann man z.B. einfach schreiben: char c = 'A'; c += 10; printf("%c", c); Gibt es eine ähnliche Möglichkeit für Perl, folgendes funktioniert nicht so ganz: use bytes; my $c = 'A'; $c += 10; # mit use warnings gibt diese Zeile eine Warnung print $c; Danke im Voraus, Stefan
Am Samstag, 22. Mai 2004 10:30 schrieb Stefan Lang:
In C (und C++) kann man z.B. einfach schreiben:
char c = 'A'; c += 10; printf("%c", c);
Gibt es eine ähnliche Möglichkeit für Perl, folgendes funktioniert nicht so ganz:
use bytes;
my $c = 'A'; $c += 10; # mit use warnings gibt diese Zeile eine Warnung print $c;
Dazu ist Perl zu intelligent, ich weiss nicht ob es der beste Weg ist, aber $c = chr( ord( $c ) + 10 ); sollte funktionieren. -- Andreas
Hallo, On Saturday 22 May 2004 10:30, Stefan Lang wrote:
In C (und C++) kann man z.B. einfach schreiben:
char c = 'A'; c += 10; printf("%c", c);
Gibt es eine ähnliche Möglichkeit für Perl, folgendes funktioniert nicht so ganz:
use bytes;
my $c = 'A'; $c += 10; # mit use warnings gibt diese Zeile eine Warnung print $c;
'' haben in Perl eine andere Bedeutung als in C. In Perl entspricht '' ungefähr "". In '' werden allerdings Dinge wie \n, \t oder \0x263a nicht interpretiert während in "" schon. Das müsste auch irgendwo in einer der Perl-manpage stehen. Eine Lösung hast du ja schon. Je nachdem für was ist vielleicht diese ähnliche auch gut: $c = ord('A'); $c += 10; print chr($c); #oder printf("%c", c); Ferdinand
Am Samstag, 22. Mai 2004 10:52 schrieb Andreas Winkelmann:
Am Samstag, 22. Mai 2004 10:30 schrieb Stefan Lang:
In C (und C++) kann man z.B. einfach schreiben:
char c = 'A'; c += 10; printf("%c", c);
Gibt es eine ähnliche Möglichkeit für Perl, folgendes funktioniert nicht so ganz:
use bytes;
my $c = 'A'; $c += 10; # mit use warnings gibt diese Zeile eine Warnung print $c;
Dazu ist Perl zu intelligent, ich weiss nicht ob es der beste Weg ist, aber
$c = chr( ord( $c ) + 10 );
sollte funktionieren.
-- Andreas
Danke, das funktioniert.
Moin, * Ferdinand Ihringer wrote (2004-05-22 11:17):
'' haben in Perl eine andere Bedeutung als in C. In Perl entspricht '' ungefähr "".
Nein, in Perl entspricht "" ungefähr "". Allerdings sind selbst die noch so unterschiedlich, daß man besser die beiden Sprachen sauber auseinanderhält. Thorsten -- A future startup with no patents of its own will be forced to pay whatever price the giants choose to impose. That price might be high: Established companies have an interest in excluding future competitors. - Bill Gates
On Saturday 22 May 2004 11:32, Thorsten Haude wrote:
Moin,
* Ferdinand Ihringer wrote (2004-05-22 11:17):
'' haben in Perl eine andere Bedeutung als in C. In Perl entspricht '' ungefähr "".
Nein, in Perl entspricht "" ungefähr "". Allerdings sind selbst die noch so unterschiedlich, daß man besser die beiden Sprachen sauber auseinanderhält.
Das bezog sich auf die Perl-"" und ''. Hätte ich dazu schreiben müssen. Ferdinand
participants (4)
-
Andreas Winkelmann
-
Ferdinand Ihringer
-
Stefan Lang
-
Thorsten Haude