newlines in jedem durchlauf von: print foreach(@res); (Allgemeines zu Perl)

[thread]7274[/thread]

newlines in jedem durchlauf von: print foreach(@res);

vayu

2005-09-14 14:12

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Hallo,

ist es möglich in jedem schleifendurchlauf von

Code: (dl )

print foreach(@result);

ein newline hinter die ausgabe zu setzen, ohne dass man

Code: (dl )

1
2
3

foreach(@res) {
  print $_."\n";
}

sowas hier machen muss?

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

renee

2005-09-14 14:18

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

~/entwicklung 56> cat >newline.pl
#!/usr/bin/perl -l

use strict;
use warnings;

for(0..10){
  print;
}
~/entwicklung 57> perl newline.pl 
0
1
2
3
4
5
6
7
8
9
10

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

2005-09-14 14:20

User since
2003-08-04
12208 Artikel
Admin1

print $_,$/ for @a;

$\=$/; print for @a;

# update: -l macht im prinzip das gleiche wie $\=$/\n\n

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

vayu

2005-09-14 14:30

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Ah Vielen Dank ;)

bei dem $\=$/ habbich erst ein wenig gebraucht, um zu verstehen ^^

aber gibt ja perldoc perlvar :P

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

Crian

2005-09-14 14:55

User since
2003-08-04
5870 Artikel
ModeratorIn

Nur als dummer Hinweis: Wenn man Renees Skript unter Windows speichert und dann unter Unix laufen lässt, kann es passieren, dass die Zeichen nebeneinander ausgegeben werden.

Warum dennn das?

Weil - wenn man die Datei nicht konvertiert - hinter dem -l ein Ctrl-M steht und Perl den Switch -l^M nicht kennt... Ohne das -l käme sonst eine Fehlermeldung der Art "Interpreter nicht gefunden".

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

Strat

2005-09-14 15:33

User since
2003-08-04
5246 Artikel
ModeratorIn

newline-konvertierer: ~ dos2unix:

Code: (dl )

perl -i.bak -pe 's/\r//g' file.pl

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2005-09-14 14:12.