#!/usr/um/bin/perl $file = shift; $is_shk = 0; $is_bsq = 0; $need_cut = 0; $s_blank = 0; $blank = 0; $s_lines = 0; $lines = 0; open (in, "<$file"); while (!eof(in) && $is_shk==0) { $line = ; $lines=$lines+1; $s_lines=$s_lines+1; $_ = $line; if (/^ / || /^$/) { $cut = $cut+1; $s_cut=$s_cut+1}; if ($lines == 1 && /^\116\365\106\351\154\345/) { print "SHK!\n"; $is_shk = 1;} if ($line eq "FiLeStArTfIlEsTaRt\n") { if ($s_lines==$s_cut) {print "File may need haircut.. (section $bsq)\n"; $s_lines = 0 ; $s_cut = 0;}; $is_bsq = is_bsq + 1; }; } close (fd); if (($lines == $cut)&& !$is_bsq) { print "File needs Haircut, but it's not bsq..\n" } if (($lines == $cut)&&$is_bsq) { print "Haircut time..\n"; open (in, "<$file"); open (out, ">temp.pl"); while (!eof(in)) { $line = ; $_ = $line; $line =~ s/^ //; print out "$line"; } close (out); close (in); rename ($file, "old.$file"); rename ("temp.pl", $file); }