Essential Perl Code Snippets

Delete Files in Bulk

unlink <*.html>;

Get File Text in Array and String

open(FM,”main_sidebar.txt”);
my @menu_txt=<FM>;
close(FM);
my $menu=join(“”,@menu_txt);

Check if Line Number Equal To 1

if ($. == 1) {
chomp;
}

Related Posts:

• No Related Posts