Perl

Hei, miksei täällä ole ketään? Olenko viimeinen dinosaurus?

Miten saan muutettua tiedoston nimet Windowssin Perlillä? Isot pieniksi ja välilyönnit pois aluksi. Yksi malli: perl -e 'for (@ARGV) { ($new=$_) =~ s/(. )(.)\.html$/$1$2.shtml/; rename $_, $new unless -e $new }' *.html

Mikä tässä alla olevassa aiheuttaa virheen: #!/usr/bin/env bash on () { echo "Tiedosto on olemassa." } ei () { echo "Tiedostoa ei ole olemassa." } [ -f testi.txt ] && on || ei

No tänne on kaivattu kysymyksiä niin tässä nyt sitten yksi tyhmä sellainen. Pitäisi saada nettisivulle perl kävijälaskuri. Eli notepadiin pitäs jotai koodii laittaa. Mikä koodi sinne siis pitäisi laittaa ja pitääkö jota…

Alussa on 100 palavaa lamppua. Siirryt ovelta ovelle, sammuttaen palavan ja sytyttäen sammutetun lampun. Aloitus kierroksella sammutat jokaisen lampun, toisella kierroksella käyt vain joka toisella lampulla, sytyttäen t…

antigravity.py tyylisistä moduulleista. Kiinnitin huomitota riviin 5 kyseisessä moduullissa: webbrowser.open("https://xkcd.com/353/") Eihän tälläisia asiaan kuulumattomia juttuja tarvita, vai tarvitaanko, ja kuka näitä …

Miten tulisi menetellä että seuraavat funktiot toimisi. Haluaisin tehdä oman moduulin pythoniin, jossa olisi nämä alla olevat ja paljon muita näppäriä funktioita. print(morse_aakkoset) print(aakkoset_lowercase) print(aa…

Melkoinen ero näissä on havaittavissa joten kannattaa tiukoissa ja aikaa vievissä silmukoissa, katsoa mitä käyttää. Testaa nämä silmukat Bash Shell komentokehotteessa: Python2.x python2 -m timeit -s 'L = range(1000)' 'z…

print ( "[", str.center( 'aa', 10, '*' ), "]" ) Tulostaa [ ****aa**** ] Koinka tuo saadaan niin, ettei reunoille jää välilyöntiä, siis näin [*****aa*****].

TARVITAAN PYTHON KOODIA jolla voi ratkaista alla olevan tehtävän. Sinulla on normaali 52 kortin korttipakka, josta valitset 5 korttia. Kuinka monta erinlaista valintaa sinä voit tehdä?

ja jos on missä se on: https://s2.gifyu.com/images/Valinta_064.png

Fresnelin integraalit (kts. wiki) voi toki laskea perlin liitännäisen avullakin mutta jos liitännäistä ei ole, niin saahan perl-ohjelmaan octave:n käskyjä system käskyn avulla. Octave on matematiikkaohjelma vrt. Matlab.…

Regular Expression scripti: if ($line =~ m/\d/i) löytää riviltä numeerisen arvon. Miten saan sen eteen jonkun merkin? Esimerkiksi pilkun. foo foo .... . . 44323 Pitäisi saada: foo foo,44323

Hei, harjoittelen r-kieltä, jota tarvitsen data-analyysiin ja huomasin, että datan manipulointi saattaisi käydä kätevämmin Perl-ohjelmalla. Ja siitä saattaisi olla muutakin hyötyä esim. datan hakemiseen netistä, mikäli …

Hei, Voisiko joku selittää, miten tämä wikipedian esiemerkki flood fill-algoritmista toimii? http://en.wikipedia.org/wiki/File:Recursive_Flood_Fill_4_(aka).gif Scrpti on tällainen: sub FloodFill4 { my ($x, $y) = @_; if …

Kolmisarakkeinen pitkä taulukko on kopioitu veppisivulta, mutta erottimeksi tullut rivinvaihto CR eli (\r) joka solun väliin! Sen palauttamiseksi alkuperäiseen muotoon kolmen ryhmän kaksi ensimmäistä CRää (\r) pitäisi v…

Tein pienen itsenäisen skriptin (siis eräänlaisen mini web-serverin) johon netistä otetaan yhteyttä web-selaimella. Mutta en tiedä miten voisi välittää sille selaimen lomakkeelta GET "query parametrit".

while () { if(m/aaa.*zzz/) {print $1} } ei tulosta mitään miten saada tulostuman osunut merkkijono. esim 111sfdfs999

Toivottavasti joku kerkee vastaa ennenkuin löydän jostain muualta. Eli tarkoitus on poista merkkijonosta viimeinen haluttu sana. $m_jono = "test12345test12345test"; Eli millä kikalla saadaa toi viimeinen "test" poistett…

Tapahtuuko se jotenkin sprintf - käskyn avulla?