Shell Programming and Scripting

Hi,
I have these lines in a unix script:

FILEONE = /<filepath1>/<filename1.txt>
FILENEW = /<filepath2>/<filename2.txt>
head -5 $FILEONE | sed '1d' > $FILENEW
PARAM1 = `cat $FILENEW | awk '{print $2;}' `
echo "Param1 Value: $PARAM1"

What's the correct syntax of the above lines if same logic is used on perl?

my $FILEONE = "/<filepath1>/<filename1.txt>";
my $FILENEW = "/<filepath2>/<filename2.txt>";
`head -5 $FILEONE | sed '1d' > $FILENEW`;
my $PARAM1 = `cat \$FILENEW | awk '\{print $2;\}' `;
print ("Param1 Value:" . $PARAM1 ."\n");

Please advise if correct or how to better.
Thanks

What is your requirement ? Could you please state that ?

What have you tried so far ?

Print four lines starting from line 2?

Code:

my $file1 = "/path/to/file1";
my $file2 = "/path/to/file2";

open (R, $file1) || die "Could not open $file1: $!\n";
open (W, ">$file2") || die "Could not open $file2: $!\n";
while (<R>) {
  print W unless $. == 1;
  last if $. == 5;
}
close R;
close W;

This can probably be abbreviated but if you are building a larger script, you will probably need roughly these pieces.

Create a space-separated value based on the second field of the lines in a file? This is not quite as natural in Perl but also not hard to do. I sort of fail to see any common use case for this, though.

Code:

my @g;
while (<R>) {
  my @f = split;
  push @g, $f[1];  # array indices are zero-based, so this is the second field
}
print(join (" ", @g), "\n");

Notice the use of an array to collect the values, and then a simple transform on it when you're done.

If you want to merge this with the first loop over file1, you can do something like

Code:

  print W if (2..5);
  # take out the "last"
  my @f = split;
  push @g, $f[1];