Search Results

One way:

$ cat filter.pl
#!/usr/bin/perl

use strict;
use warnings;

open (F, "<create2.txt" ) || die "unable to open file: $!";
while ( my $file=<F> ) {
chomp($file);
...

perl -ne '{push @x, $_}END{pop(@x); print @x}' file1

find . -daystart -ctime 0 -name "*.bat"

First things first: Perl is not shell scripting!
Second: you're using cat far too often. cut can read a file fine by itself, and wc, when given a file argument, won't even bother reading stdin....

Thanks a lot. This worked.

First create a new fich without the head

$ cut -d"|" -f2-25 asdf>fichNew

Sencond create a fich with the firt part what it will the last
$ cut -d"|" -f1 asdf>head

And paste the first part...