Ero sivun ”Perl” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p
Malline
pEi muokkausyhteenvetoa |
p (Malline) |
||
| (Yhtä välissä olevaa versiota samalta käyttäjältä ei näytetä) | |||
| 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== | ||
| Rivi 37: | Rivi 39: | ||
*[http://www.perl.org/ Perlin kotisivu] | *[http://www.perl.org/ Perlin kotisivu] | ||
{{Ohjelmointikielet}} | |||
[[Luokka:Kehitystyökalut]] | [[Luokka:Kehitystyökalut]] | ||
[[Luokka:Proseduraaliset ohjelmointikielet]] | [[Luokka:Proseduraaliset ohjelmointikielet]] | ||