[perl]помогите реализовать сабж

http://perldoc.perl.org/Switch.html

ну или if-elsif-elsif-else

Спасибо. 

какой-то вопрос рекурсивный.

ещё вопрос: что поменять, чтобы можно было запускать скрипт с параметром, а не воодить его после:
[code]#!/usr/bin/perl

        use Switch;

        # AND LATER...

        %special = ( woohoo => 1,  d'oh => 1 );

        while (<>) {
            chomp;
            switch ($_) {
                case (%special) { print "homer\n"; }      # if $special{$_}
                case /[a-z]/i   { print "alpha\n"; }      # if $_ =~ /a-z/i
                case [1..9]     { print "small num\n"; }  # if $_ in [1..9]
                case { $_[0] >= 10 } { print "big num\n"; } # if $_ >= 10
                print "must be punctuation\n" case /\W/;  # if $_ ~= /\W/
            }
        }
[/code]

Загугли что такое subj для начала.

while (<>) на for (@ARGV)

> [perl]помогите реализовать сабж

Должно преобразоваться в "[perl]помогите реализовать [perl]помогите реализовать [perl]помогите реализовать [perl]помогите реализовать [perl]помогите реализовать ..."

он хотел уронить ЛОР!

#! /usr/bin/perl
foreach (@ARGV) {print "$_\n"}

Маленькая илюстрация использования папаметров скрипта.
раскидать по переменным можно например так:
($param1,$param2,...,$paramn)=(@ARGV)