File slurping in Perl

[archy22]

The following code slurps the STDIN file, then splits it into lines, then reassembles the lines into a single string, and prints the string

#!/usr/bin/perl -w
use strict;

my $holdTerminator = $/;
undef $/;
my $buf = <STDIN>;
$/ = $holdTerminator;
my @lines = split /$holdTerminator/, $buf;
$buf = "init";
$buf = join $holdTerminator, @lines;
print $buf;
print "\n";

[benmoriz]

my $holdTerminator = $/;
undef $/;
my $buf = <STDIN>;
$/ = $holdTerminator;
my @lines = split /$holdTerminator/, $buf;
$buf = "init";
$buf = join $holdTerminator, @lines;
print $buf;

[njtboy]

#!/usr/bin/perl -w
use strict;

my $holdTerminator = $/;
undef $/;
my $buf = <STDIN>;
$/ = $holdTerminator;
my @lines = split /$holdTerminator/, $buf;
$buf = "init";
$buf = join $holdTerminator, @lines;
print $buf;
print "\n";

[paudelsonu88]

File slurping in Perl is the simple and efficient reading or writing or modifying a complete file. It is related to file handling where we use the file for different purposes like reading, writing and modifying if needed to update the existing contents of the file or change some stored data in the file using Perl.