%cat d2u.pl
#!/usr/bin/perl
foreach $a (`ls`) {
        if(`file $a` =~ /text|script/) {
                `dos2unix $a`;
        }
}


%cat foreach.pm
        foreach $key (sort keys %FORM) {
                $aline = "$key $FORM{$key}<BR>";
                push(@html_lines,$aline);
        }

%cat while_each.pl
#!/usr/bin/perl
package main;
&nameLister("1","Jamie","2","Jinsung");

sub nameLister {
        my %this = @_;
        my ($keys, $value);
        while( ($key,$value) = each (%this)) {
                print "\t$key is $value.\n";
        }
}
%perl while_each.pl
        1 is Jamie.
        2 is Jinsung.
%
- for
C ¿Í °ÅÀÇ µ¿ÀÏÇÏ´Ù.
for ($i = 0; $i < 10; ++$i) {
if ($i <5 )
{
# continue ¹®Àå ´ë½Å next
next;
}
elsif ($i == 8)
{
# break ¹®Àå ´ë½Å last
last;
}
print "$i\n";
}

´ÙÀ½ ¹®¹ýµµ °¡´É
foreach my $i (`ls`)
{
print ("$i\n");
}


- while
print "Password? ";
$a = <STDIN>;
chop $a;
# °³Ç๮ÀÚ Á¦°Å
while ($a ne "fred")
{
print "sorry. Again? ";
$a = <STDIN>; chop $a;
}

- do
do
{
print "Password? ";
$a = <STDIN>;
chop $a;
} while ($a ne "fred");

- if
if (!$a)
{
print "The string is empty\n";
}
elsif (length($a) == 1)
{
print "The string has one character\n";
}
elsif (length($a) == 2)
{
print "The string has two characters\n";
}
else
{
print "The string has lots of characters\n";
}