perl 重要練習

2021-08-30 20:51:19 字數 1426 閱讀 1479

陣列,列表練習--小遊戲的例子

檔案練習

模式匹配練習--一道包括陣列、檔案和模式匹配的綜合練習題:

編寫乙個短程式,是他能夠執行下列操作:

1)開啟乙個檔案

2)將所有檔案行讀入乙個陣列

3)從每行中取出所有單詞

4)找出至少擁有4個連續子音或非原因字元的所有單詞(比如"thoughts" 或者"yardstick")

open(mfile,"file.txt");

@lines=;

close(mfile);

foreach (@lines)/i)

grep函式

語法:grep(/pattern/,@array)

說明:將合文書處理模式(regular expression)的陣列元素找出來。

示例:@array=("one","on","in");

$count=grep(/on/,@array); #這時$count=2

@result=grep(/on/,@array);#這時@result=("one","on");

eg.1  @array=qw(grephound bloodhound terrier mutt chihuahua);

@result=grep(s/hound/hounds/,@array);

foreach $tmp (@result){

print $tmp." ";

@result=grep(length($_)>5,@array);

foreach $tmp (@result){

print $tmp." ";

指令:push

語法:push(@array,$string)

說明:在陣列@array的最後附加新的元素 ($string)到陣列@array中。

示例:@array=("one","two"); push(@array,"three"); #這時$@array=("one","two","three")

hash相關:

指令:keys

語法:keys(%array)

說明:取出關聯陣列%array中全部的key。

示例:%name=(1,"mike",2,"michael"); @readkey=keys(%names); #這時@readkey=(1,2);

指令:values

語法:values(%array)

說明:取出關聯陣列%array中全部的value。

示例:%names=(1,"mike",2,"michael"); @readval=values(%names);

#這時@readval=("mike","michael");

參考:

perl指令碼練習

題目 12 34 56 78 24 65 87 90 76 11 67 87 100 89 78 99 求出文字中數字的最大 小值 我看很多的朋友都用shell的awk實現了,但本人對awk不是很了解,試著用perl簡單的寫了一下,也能實現 code usr bin perl w use stric...

練習0006 最重要詞頻

詳細題目在上。此次是0006題,統計出乙個資料夾下每個文字檔案最為重要的詞。總的思路是讀取檔案目錄,將所有檔案加至列表中,然後對列表每個檔案中的文字進行過濾,使用字典計算詞出現次數,然後對字典排序,將出現次數最多的詞存到乙個列表中,最後輸出該列表。coding utf 8 import os imp...

為什麼練習很重要?

當你認識到1 1 2時,你需要去練習它嗎?它是乙個元知識,是固定的,原則性的。你對它的整個學習過程,到意識到它的層面,就足夠了。如若是由此發展出來的加法運算呢?它是一種方法,一種推理過程,它有兩個可變的引數。你需要練習,以使你的大腦遇見這兩個可變引數中的某些組合形式,以此總結某些規律,並運用規律來提...