Muokataan sivua Perl
Siirry navigaatioon
Siirry hakuun
Kumoaminen voidaan suorittaa. Varmista alla olevasta vertailusta, että haluat saada aikaan tämän lopputuloksen, ja sen jälkeen julkaise alla näkyvät muutokset.
| Nykyinen versio | Oma tekstisi | ||
| 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!): | ||
<source 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;' | ||
</ | </source> | ||
* Vaihda tiedoston rivinvaihdot DOS-tyylisistä Unix-tyylisiksi: | * Vaihda tiedoston rivinvaihdot DOS-tyylisistä Unix-tyylisiksi: | ||
< | <source lang=perl> | ||
perl -wce 'while (<>) {s/\r\n/\n/}' tiedosto.txt | perl -wce 'while (<>) {s/\r\n/\n/}' tiedosto.txt | ||
</ | </source> | ||
==Katso myös== | ==Katso myös== | ||