1) Nhập n và đếm số chẵn từ 1 tới n , hiển thị
PHP Code:
sub soChan{
$number = scalar(@_[0]);
if(int($number%2)==0)
{
return 1;
}
else
{
return 0;
}
}
print "Nhap n: "; $n = int(<>);
for my $i (1..$n)
{
if(soChan($i) == 1)
{
print " $i ";
if($i<$n)
{
print ",";
}
}
}
2)Nhập n và đếm số nguyên tố từ 2 tới n , hiển
thị
sub checkNgTo{
$number = int(@_[0]);
$count=0;
if($number > 2)
{
for my $i(1..$number)
{
if(int($number % $i)==0)
{
$count++;
}
}
}
else
{
return 0;
}
if($count == 2)
{
return 1;
}
else
{
return 0;
}
}
print "Nhap n: ";$n = int(<>);
for my $i (2..$n)
{
if(checkNgTo($i) == 1)
{
print " $i ";
}
}
print "\n";
3)Nhập n và tính tổng bình phương các số lẻ từ
1->n
sub soChan{
$number = scalar(@_[0]);
if(int($number%2)==0)
{
return 1;
}
else
{
return 0;
}
}
print "Nhap n: "; $n = int(<>); $tong=0;
for my $i (1..$n)
{
if(soChan($i) == 0)
{
$tong+=$i*$i;
}
}
print "Tong binh phuong cua cac so le tu 1 toi $n la : $tong ";
print "\n";
4)Nhập n và tính giai thừa
print "Nhap n: "; $n = int(<>); $gt=1;
for my $i (2..$n)
{
$gt*=$i;
}
print "Giai thua cua $n la : $gt ";
print "\n";
5)Nhập n và tính uscln , bscnn
PHP Code:
sub USCLN{
my $a=int(@_[0]);
my $b=int(@_[1]);
if($a<0)
{
$a=int(0-$a);
}
if($b<0)
{
$b=int(0-$b);
}
if($a==0)
{
return $b;
}
if($b==0)
{
return $a;
}
while($a!=$b)
{
if($a>b)
{
$a-=$b;
}
else
{
$b-=$a;
}
}
return $b;
}
print "\nNhap a: ";
$a=int(<>);
print "\nNhap b: ";
$b=int(<>);
$result=USCLN($a,$b);
print "USCLN cua $a va $b la : $result";
$result=($a*$b)/USCLN($a,$b);
print "\nBSCNN cua $a va $b la : $result";
print"\n";
6)Nhập mảng gồm n phần tử , đếm số phần tử chẵn trong mảng
PHP Code:
@M1; $dem=0;# Hàm tìm số chẵnsub soChan{
$value = @_[0];
if(int($value)%2 == 0)
{
return 1;
}
else
{
return 0;
}
}
print ("Nhap n phan tu: "); $n = int(<>);
for $i (0..$n-1)
{
print "\n Nhap phan tu thu [$i]: ";
$temp=<>;
push(@M1,$temp);
}
for $i (0..$n-1)
{
if(soChan(@M1[$i]) == 1){
$dem++;}
}
print "\nCo $dem so phan tu chan trong mang\n";
7)Nhập mảng gồm n phần tử , in tổng số chẵn trong mảng
PHP Code:
@M1;$dem=0;$tong=0;# Hàm tìm số chẵnsub soChan{
$value = @_[0];
if(int($value)%2 == 0)
{
return 1;
}
else
{
return 0;
}
}
print ("Nhap n phan tu: ");$n = int(<>);
for $i (0..$n-1)
{
print "\n Nhap phan tu thu [$i]: ";
$temp=<>;
push(@M1,$temp);
}
for $i (0..$n-1)
{
if(soChan(@M1[$i]) == 1){
$tong+=@M1[$i];}
}
print "\nTong so chan trong mang la : $tong\n";
8)Nhập mảng gồm n phần tử , in mảng ra và cho phép nhập phần tử cần xóa , xóa phần tử và in mảng lại sau khi xóa
PHP Code:
sub xoaPhanTu{
$size = @_[0];
$valueDel = @_[1]; my $index = 0;
while ($index <= $size ) {
my $value = $M1[$index];
if ( $value == $valueDel ) {
splice @M1, $index, 1;
} else {
$index++;
}
}
}
@M1;
print ("Nhap n phan tu: "); $n = int(<>);
for $i (0..$n-1)
{
print "\n Nhap phan tu thu [$i]: ";
$temp=<>;
$temp=int($temp);
push(@M1,$temp);
}
print "M1: ";
for $i (0..$n-1)
{
print "@M1[$i] ";
}
$valueDel;
print "\nNhap gia tri can xoa khoi mang : "; $valueDel=int(<>); xoaPhanTu($#M1,$valueDel); print "\nMang sau khi xoa phan tu : ";
for $i (0..$n-1)
{
print "@M1[$i] ";
}
print "\n";
9)Nhập mảng gồm n phần tử , sắp xếp mảng tăng và giảm
PHP Code:
# Cú pháp lệnh sắp xếp số
# sort {$a<=>$b} your_arr = Sắp xếp tăng dần
# sort {$b<=>$a} your_arr Sắp xếp giảm dần
@M1;
print ("Nhap n phan tu: "); $n = int(<>);
for $i (0..$n-1)
{
print "\n Nhap phan tu thu [$i]: ";
$temp=<>;
$temp=int($temp);
push(@M1,$temp);
}
print "Mang chu sap xep: @M1";
print "\nSap xem tang dan:\n "; my @sort = sort{$a<=>$b} @M1;
print " @sort ";
print "\nSap xem giam dan:\n "; my @sort = sort{$b<=>$a} @M1;
print " @sort ";
print "\n";
10)Nhập mảng gồm n phần tử , kiểm tra trong mảng có bao nhiêu số nguyên tố và đưa những số nguyên tố đó vào mảng 2 - Xuất M2 ra màn hình
PHP Code:
sub soNgTo{
$number = int(@_[0]);
$count=0;
if($number > 2)
{
for my $i(1..$number)
{
if(int($number % $i)==0)
{
$count++;
}
}
}
else
{
return 0;
}
if($count == 2)
{
return 1;
}
else
{
return 0;
}
}sub xuatMangM2{
$size = @_[0];
for $i (0..$size)
{
my $convert = int(@M2[$i]);
print "$convert ";
}
}
@M1,@M2; $dem=0;
print "Nhap so phan tu : "; $n=int(<>);
for my $i (0..$n-1)
{
print "\n Nhap phan tu thu [$i]: ";
$temp=<>;
$temp=int($temp);
push(@M1,$temp);
}
for my $i (0..$n-1)
{
if(soNgTo(@M1[$i]) == 1)
{
my $temp = @M1[$i];
push(@M2,$temp); # Đẩy số nguyên tố vào mảng M2
$dem++;
}
}
print "Co $dem so nguyen to trong mang M1 , nhung so do la: ";xuatMangM2($#M2);
print "\n";
11)Tạo một file với tên "HelloPerl.txt" và ghi vào đó nội dung "dtu.edu.vn"
PHP Code:
open (CreateNew,">HelloPerl.txt") or die "Khong the tao file";
print CreateNew "dtu.edu.vn" or die "Khong the ghi noi dung file"; close CreateNew;
print "Da tao file thanh cong";
print "\n";
12)Xóa hết nộp dung ghi trên file vừa tạo và ghi vào đó nội dung "Khoa CNTT DH Duy Tan"
PHP Code:
open (OpenFile,"HelloPerl.txt") or die "Khong the mo file"; open (GhiDe,">HelloPerl.txt") or die "Khong the ghi de";
print GhiDe "Khoa CNTT DH Duy Tan" or die "Khong the ghi noi dung file"; close GhiDe; close OpenFile;
print "Da ghi de thanh cong";
print "\n";
13)Ghi đè nội dung file vừa tạo , thêm vào phía dưới câu "Nam hoc 2013-2014"
PHP Code:
open (OpenFile,"HelloPerl.txt") or die "Khong the mo file"; open (GhiChen,">>HelloPerl.txt") or die "Khong the ghi chen";
print GhiChen "\nNam hoc 2013-2014" or die "Khong the ghi noi dung file"; close GhiChen; close OpenFile;
print "Da ghi chen thanh cong";
print "\n";
14)Nhập mảng gồm n phần tử , kiểm tra và ghi phần tử chẵn vào file "soChan.txt", ghi phần tử nguyên tố vào file "soNguyenTo.txt"
PHP Code:
sub soChan{
$number = scalar(@_[0]);
if(int($number%2)==0)
{
return 1;
}
else
{
return 0;
}
}sub checkNgTo{
$number = int(@_[0]);
$count=0;
if($number > 2)
{
for my $i(1..$number)
{
if(int($number % $i)==0)
{
$count++;
}
}
}
else
{
return 0;
}
if($count == 2)
{
return 1;
}
else
{
return 0;
}
}$value;
@arr;
do{
print "Nhap so : ";
$value=<>;
$value=int($value);
if($value > -1){
push(@arr,$value);
}
}while ($value != -1);# Tạo file soChan.txt và file soNguyenTo.txt open (CreateSoChan,">soChan.txt"); open (CreateSoNguyenTo,">soNguyenTo.txt");# Kiểm tra số chẵn trong mảng và ghi vào file soChan.txt for $i (0..$#arr) {
if(&soChan(@arr[$i]) == 1) # kiem tra so chan
{
print CreateSoChan "@arr[$i]\n";
}
} close CreateSoChan;
for $i (0..$#arr) {
if(&checkNgTo(@arr[$i]) == 1) # kiem tra nguyen to
{
print CreateSoNguyenTo "@arr[$i]\n";
}
} close CreateSoNguyenTo;
print "\n Ghi hoan tat";
print "\n";
15)Đọc 2 thông tin từ file "soChan.txt" và "soNguyenTo.txt" ở trên, chép vào file "tongHop.txt"
PHP Code:
#Gop noi dung 2 file @file1,@file2;open (OpenSoChan,"soChan.txt") or die "Can't open "; open (OpenSoNgTo,"soNgTo.txt") or die "Can't open "; open $AddSoChan, ">", "tongHop.txt" or die "Can't open 'tongHop.txt'\n";
for my $line (<OpenSoChan>)
{
print $AddSoChan $line;
} close OpenSoChan; close $AddSoChan;open $AddSoNgTo, ">>", "$existingdir/ketQua.txt" or die "Can't open 'tongHop.txt'\n";
for $lines (<OpenSoNgTo>)
{
print $AddSoNgTo $lines;
} close OpenSoNgTo; close $AddSoNgTo;
16)Viết 1 đoạn perl script đọc file MetaCharacter.txt và kiểm tra trong file đó có từ DuyTan hay không ? Nếu có thì in ra còn nếu không thì báo "Không có!"
PHP Code:
open (Open,"MetaCharacters.txt") or die ("Can't open"); $check = 0;
for $line (<Open>)
{
if($line =~/DuyTan/)
{
print $line;
$check = 1;
}
}
if($check == 0)
{
print "Khong co";
}
print "\n";
17)Nhập vào file MetaCharacter thông tin sau
DuyTan
DuuuuuuyTan
DyTan
Yêu cầu viết script cho những tính năng sau
- Hiển thị : DuyTan và DuuuuuuyTan
- Hiển thị : DuyTan và DyTan
- Hiển thị : DuyTan , DuuuuuuyTan và DyTan
PHP Code:
a) open (Open,"MetaCharacters.txt") or die ("Can't open"); $check = 0;
for $line (<Open>)
{
if($line =~/Du+y/)
{
print $line;
$check = 1;
}
}
if($check == 0)
{
print "Khong co";
}
print "\n";
b) open (Open,"MetaCharacters.txt") or die ("Can't open"); $check = 0;
for $line (<Open>)
{
if($line =~/Du?y/)
{
print $line;
$check = 1;
}
}
if($check == 0)
{
print "Khong co";
}
print "\n";c) open (Open,"MetaCharacters.txt") or die ("Can't open"); $check = 0;
for $line (<Open>)
{
if($line =~/Du*y/)
{
print $line;
$check = 1;
}
}
if($check == 0)
{
print "Khong co";
}
print "\n";
18)Tạo 1 file addressWeb.txt trog đó có các địa chỉ sau
http://www.example.com/test.php
http://www.example.com/test.html
www.example.com/test.html
www.example.com/test.php
Yêu cầu viết script chỉ hiển thị những dòng nào có đủ giao thức và link dưới dạng html
PHP Code:
# Chương trình đọc file địa chỉ web và hiển thị những địa chỉ có tồn tại trang html
# Tạo mới file và đẩy nội dung vàoopen (CreateNew,">addressWeb.txt"); # Thêm nội dung cho trang web print CreateNew "http://google.com\n";
print CreateNew "http://google.com/test.html\n";
print CreateNew "http://google.com/test.html\n";
print CreateNew "http://google.com/test.html\n";
print CreateNew "1\n"; close CreateNew;# Đọc file và in ra những dùng có tồn tại link htmlopen (OpenFile,"addressWeb.txt");
for $line (<OpenFile>)
{ $string = $line;
if(($string =~ /^http:/) and ($string =~ /html$/))
{
print $string;
}
} close OpenFile;
19)Tạo 1 file soDienThoai.txt trong đó có nội dung như sau
0511-345123
0511-3613759
05113-245125
0511-2225198
Yêu cầu viết script hiển thị những số điện thoại đúng chuẩn : xxxx-xxxxxx
PHP Code:
# CharacterClasses
# Chương trình đọc file và in ra danh sách số điện thoại theo mã vùng 0511
# Tạo mới open(CreateNewSDT,">phoneNumber.txt");
print CreateNewSDT "0511-113\n";
print CreateNewSDT "0608-22541\n";
print CreateNewSDT "0511-3613759\n";
print CreateNewSDT "0511-2225198\n"; close CreateNewSDT;
# Đọc open (Read,"phoneNumber.txt");
for $line (<Read>)
{
$phone = $line;
if($phone =~ /\d{4}-\d{7}/)
{
print $phone;
}
}
