Useful Perl Scripts : Part-4

For more please visit :  Perl Series

 Array referencing

 

	#!/usr/bin/perl
	@a = (1, 2, 3); # original array
	$aRef = \@a; # reference to the array
	print "a: @a\n"; # prints "a: 1 2 3"
	print "a: @$aRef\n"; # exactly the same

view raw array_reference.perl hosted with ❤ by GitHub

 

To Read and print the file

 

	#!/usr/bin/perl
	open (FILEHANDLE, "file.txt");
	while(<FILEHANDLE>)
	{
	print "$_\n";
	}

view raw read_file.perl hosted with ❤ by GitHub

 

 To Print the 1st character of a file

	#!/usr/bin/perl
	open (FILEHANDLE, "< new.pl") or die "oops: $!";
	@each = FILEHANDLE;
	my $char = getc $each[0];
	print $char;
	close(FILEHANDLE);

view raw 1st_char.perl hosted with ❤ by GitHub