線性檢索
基本步驟
1.先建一個文本檔案，名為text.txt。
2.向文本中寫入數據。
###########
#01.pl#
###########
#!/usr/bin/perl-w
for($i=0;$i<100;++$i){
$array[$i]=2*$i;
}
open(MYTEXT,"+<text01.txt")||die"can'topen$!\n";
printMYTEXT"@array";
closeMYTEXT;
3.檢索這個文本檔案中的內容
###########
#02.pl#
###########
#!/usr/bin/perl-w
open(MYTEXT,"+;
@array=split(//,$word);
closeMYTEXT;
print"Enteranintegersearchkey:";
chomp($searchkey=);
$found=0;
for($i=0;$i<@array&&!$found;++$i){
if($array[$i]==$searchkey){
$index=$i;
$found=1;
}
}
if($found){
print"found$searchkeyatsubscript$index\n";
}
else{
print"$searchkeynotfound\n";
