newline an Stringende anhängen (Allgemeines zu Perl)

alexus-777

2004-05-15 19:05

User since
2004-04-13
121 Artikel
BenutzerIn
[default_avatar]

Hallo Community,

gibt es andere Möglichkeiten eine newline an Stringende anzuhängen als:

Code: (dl )

$string="$string\n";

Regex ist in meinem Fall leider ungeeignet, weil im String solche Werte wie \ /$%&()[]{}?`´""''= und andere vorkommen können. Wenn ich obenstehende Variante verwende, bekomme ich ein Fehler wenn ein \ im String steht und \n maskiert. Welche andere Möglichkeiten gibt es noch?

Gruß Alexander

steffenw

2004-05-15 19:48

User since
2003-08-15
692 Artikel
BenutzerIn

Code: (dl )

1
2

$string = $string."\n";
$string .= "\n";

$SIG{USER} = sub {love 'Perl' or die};

Ishka

2004-05-15 20:17

User since
2003-08-04
771 Artikel
HausmeisterIn

wo gibts denn nen Fehler?

perl -e '$var="bl\\";$var="$var\n";print $var'

klar, wenn du schreibst $var="bl\" gibts nen Fehler, aber auch, wenn du nicht $var="$var\n"; dahinter schreibst..

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

[E|B]

2004-05-15 21:04

User since
2003-08-08
2561 Artikel
HausmeisterIn

Code: (dl )

$string =~ s/(.+)/$1\n/;

Wo ist das Problem mit RegExps?

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

betterworld

2004-05-15 21:13

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Code: (dl )

$string =" /$/\n/;

Wo soll da ein Problem sein? :)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Ishka

2004-05-15 21:16

User since
2003-08-04
771 Artikel
HausmeisterIn

@[E|B]: funzt net, @betterworld - schon gar nicht.

$string =~ s/(.+)/$1\n/s;

würde laufen

$string =~ /$/\n/s;

auch..

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

[E|B]

2004-05-15 21:46

User since
2003-08-08
2561 Artikel
HausmeisterIn

Wieso geht meins nicht?

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

betterworld

2004-05-16 00:17

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[E|B
,15.05.2004, 19:46]Wieso geht meins nicht?

Ishka sah ein Problem bei Strings, die Zeilenumbrueche enthalten. Ohne das s-Flag gilt . naemlich nicht fuer Zeilenumbrueche. Ich habe denselben Fehler gemacht.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Ishka

2004-05-16 03:31

User since
2003-08-04
771 Artikel
HausmeisterIn

betterworld - du hast sogar einen weiteren gemacht: $string =" /$/\n/; (es sei denn, ich kenne den =" Operator noch nicht)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Relais

2004-05-16 04:08

User since
2003-08-06
2261 Artikel
ModeratorIn

Code: (dl )

use strict;
use warnings;
                                                                                
sub unchomp {
    my @data = @_;
    foreach my $string ( @data ) {
        $string .= "\n"
            unless $string =~ m/\n$/;
    }
    return @data;
}
                             
print unchomp( "a\n", "b", "c" )

\n\n

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming