Found 157 Articles for PERL

You can use mkdir function in Perl to create a new directory. You will need to have the required permission to create a directory.#!/usr/bin/perl $dir = "/tmp/perl"; # This creates perl directory in /tmp directory. mkdir( $dir ) or die "Couldn't create $dir directory, $!"; print "Directory created successfully";Remove a directoryYou can use rmdir function in Perl to remove a directory. You will need to have the required permission to remove a directory. Additionally this directory should be empty before you try to remove it.#!/usr/bin/perl $dir = "/tmp/perl"; # This removes perl directory from /tmp directory. rmdir( $dir ) or die "Couldn't ... Read More

There are various ways to list down all the files available in a particular directory using Perl. First let's use the simple way to get and list down all the files using the glob operator −#!/usr/bin/perl # Display all the files in /tmp directory. $dir = "/tmp/*"; my @files = glob( $dir ); foreach (@files ) {    print $_ . ""; } # Display all the C source files in /tmp directory. $dir = "/tmp/*.c"; @files = glob( $dir ); foreach (@files ) {    print $_ . ""; } # Display all the hidden files. $dir = "/tmp/.*"; @files ... Read More

You can test certain features very quickly within Perl using a series of test operators known collectively as -X tests. For example, to perform a quick test of the various permissions on a file, you might use a script like this −#/usr/bin/perl my $file = "/usr/test/file1.txt"; my (@description, $size); if (-e $file) {    push @description, 'binary' if (-B _);    push @description, 'a socket' if (-S _);    push @description, 'a text file' if (-T _);    push @description, 'a block special file' if (-b _);    push @description, 'a character special file' if (-c _);    push @description, ... Read More

You can use to tell function in Perl to know the current position of a file and seek function to point a particular position inside the file.Perl tell FunctionThe first requirement is to find your position within a file, which you do using the tell function −tell FILEHANDLE tellThis returns the position of the file pointer, in bytes, within FILEHANDLE if specified, or the current default selected filehandle if none is specified.Perl seek FunctionThe seek function positions the file pointer to the specified number of bytes within a file −seek FILEHANDLE, POSITION, WHENCEThe function uses the fseek system function, and you have ... Read More

Here is the Perl example, which opens an existing file file1.txt and read it line by line and generate another copy file file2.txt.#!/usr/bin/perl # Open file to read open(DATA1, "file2.txt"); # Copy data from one file to another. while() {    print DATA2 $_; } close( DATA1 ); close( DATA2 );Renaming a fileHere is the Perl example, which shows how we can rename a file file1.txt to file2.txt. Assuming file is available in /usr/test directory.#!/usr/bin/perl rename ("/usr/test/file1.txt", "/usr/test/file2.txt" );This function renames takes two arguments and it just renames the existing file.Deleting an Existing FileHere is an example, which shows how ... Read More

Once you have an open file handle in Perl, you need to be able to read and write information. There are a number of different ways of reading and writing data into the file.The OperatorThe main method of reading the information from an open filehandle is the operator. In a scalar context, it returns a single line from the filehandle. For example −#!/usr/bin/perl print "What is your name?"; $name = ; print "Hello $name";When you use the operator in a list context, it returns a list of lines from the specified filehandle. For example, to import all ... Read More

There are following two functions with multiple forms, which can be used to open any new or existing file in Perl.open FILEHANDLE, EXPR open FILEHANDLE sysopen FILEHANDLE, FILENAME, MODE, PERMS sysopen FILEHANDLE, FILENAME, MODEHere FILEHANDLE is the file handle returned by the open function and EXPR is the expression having file name and mode of opening the file.Open FunctionFollowing is the syntax to open file.txt in read-only mode. Here less than < sign indicates that file has to be opened in read-only mode.open(DATA, ">file.txt") || die "Couldn't open file file.txt, $!";A double >> opens the file for appending, placing the file pointer ... Read More

While $^ or $FORMAT_TOP_NAME contains the name of the current header format in Perl, there is no corresponding mechanism to automatically do the same thing for a footer. If you have a fixed-size footer, you can get footers by checking variable $- or $FORMAT_LINES_LEFT before each write() and print the footer yourself if necessary using another format defined as follows −format EMPLOYEE_BOTTOM = End of Page @<           $% .For a complete set of variables related to formatting, please refer to the Perl Special Variables section.

What about if your report is taking more than one page? You have a good solution in Perl to create pagination. We simply use $% or $FORMAT_PAGE_NUMBER variable along with header as follows −format EMPLOYEE_TOP = =================================== Name                   Age Page @< $% =================================== .Now your output will look like as follows −=================================== Name                  Age Page 1 =================================== =================================== Ali                   20 2000.00 =================================== =================================== Raza                  30 2500.00 =================================== =================================== Jaffer                40 4000.00 ===================================

Sometime you would be interested in adding a header to your report. This header will be printed on top of each page. It is very simple to do this using Perl. Apart from defining a template you would have to define a header and assign it to $^ or $FORMAT_TOP_NAME variable −Example Live Demo#!/usr/bin/perl format EMPLOYEE = =================================== @