Ero sivun ”Perl” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p
<syntaxhighlight>
pEi muokkausyhteenvetoa |
p (<syntaxhighlight>) |
||
| Rivi 18: | Rivi 18: | ||
* Komentorivi (suojatulla rivinvaihdolla) jolla määritellään ja ajetaan Perl-ohjelma, joka puolestaan luo järjestelmään "puuttuvat" [[kotihakemisto]]t (tämä on vain perl-esimerkki, älä käytä sitä vakavasti!): | * Komentorivi (suojatulla rivinvaihdolla) jolla määritellään ja ajetaan Perl-ohjelma, joka puolestaan luo järjestelmään "puuttuvat" [[kotihakemisto]]t (tämä on vain perl-esimerkki, älä käytä sitä vakavasti!): | ||
< | |||
<syntaxhighlight lang="perl"> | |||
perl -wce 'setpwent; while (@list=getpwent) {-e $list[7] or mkdir $list[7]'"\ | perl -wce 'setpwent; while (@list=getpwent) {-e $list[7] or mkdir $list[7]'"\ | ||
"'&& chown $list[2], $list[3], "$list[7]" } endpwent;' | "'&& chown $list[2], $list[3], "$list[7]" } endpwent;' | ||
</ | </syntaxhighlight> | ||
* Vaihda tiedoston rivinvaihdot DOS-tyylisistä Unix-tyylisiksi: | * Vaihda tiedoston rivinvaihdot DOS-tyylisistä Unix-tyylisiksi: | ||
< | <syntaxhighlight lang="perl"> | ||
perl -wce 'while (<>) {s/\r\n/\n/}' tiedosto.txt | perl -wce 'while (<>) {s/\r\n/\n/}' tiedosto.txt | ||
</ | </syntaxhighlight> | ||
==Katso myös== | ==Katso myös== | ||