seq (Allgemeines zu Perl) - Perl-Community.de

Gast Gast

2008-05-31 15:25

Hi!

Gibt es für Perl eine analoge Funktion (seq), mit der ich soetwas machen kann:

Code: (dl )

1
2

#! /bin/bash
for a in `seq 0 3 10`; do echo $a; done

Gast Gast

2008-05-31 16:40

Hmm, bleistiftweise

Code (perl): (dl )

perl -e 'for ($i=0;$i<=10;$i=$i+3){print "$i\n"}'

pq

2008-05-31 16:58

User since
2003-08-04
12208 Artikel
Admin1

Gast+2008-05-31 14:40:46--
Hmm, bleistiftweise
Code (perl): (dl )
perl -e 'for ($i=0;$i<=10;$i=$i+3){print "$i\n"}'

das geht kürzer =)

Code (perl): (dl )

perl -wle '$_%3||print for 0..10'

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

Gast Gast

2008-05-31 17:14

Oder so:

Code: (dl )

perl -lwe 'print $_ * 3 for 0..3'

Aber deine urspruengliche Bash-Zeile ist auch etwas umstaendlich... die for-Schleife kann man sich da ja sparen, ein einfaches "seq 0 3 10" tut doch dasselbe wie die ganze Schleife.

Gast Gast

2008-06-01 03:43

Gast+2008-05-31 15:14:43--
Aber deine urspruengliche Bash-Zeile ist auch etwas umstaendlich... die for-Schleife kann man sich da ja sparen, ein einfaches "seq 0 3 10" tut doch dasselbe wie die ganze Schleife.

Ging ein bisschen schnell; daran habe ich nicht gedacht.