Code:
#!/usr/bin/perl

open(FILE, "myfile.log") or die("Unable to open file");

# read file into an array

@data = <FILE>;

foreach $elem (@data) {

$elem =~ s/s+$//;

print "$cmdn";

}

 

close(FILE);
หมายเหตุ สังเกตุว่าต้องใส่บรรทัดนี้เข้าไปด้วยเพื่อเป็นการตัด character ที่ไม่พึงประสงค์ออกไปเช่น white space, newline ซึ่งจะติดมาด้วยจากการอ่านค่าของไฟล์แต่ละบรรทัด จริงๆใช้ chomp ก็ได้แต่ regular expression แบบนี้จะครอบคลุมกว่า