Perl-opening a file then copying files Post: 302414747

Sponsored Content

Top Forums Shell Programming and Scripting Perl-opening a file then copying files Post 302414747 by bigben1220 on Wednesday 21st of April 2010 12:45:56 AM

04-21-2010

Registered User

Perl-opening a file then copying files

Good morning guys!!

Im still practicing with Perl and now Im trying to open a file, and copy its contents to another file. Them I want to remeove the information out of the orginal file after it is copied over.

The flow should be messages-->messages1-->messages2.

Kind of like a log rotator.

Here is what I have:

Code:

#!/usr/local/bin/perl
$username = "rgoforth"
$filename = "/home/".$username."/messages";
$mess = "/home/".$username."/messages"/messages";
$mess1 = "/home/".$username."/messages"/messages.1";
$mess2 = "/home/".$username."/messages"/messages.2";
$mess3 = "/home/".$username."/messages"/messages.3";
$mess4 = "/home/".$username."/messages"/messages.4";

if (-e $filename){
        open (FILE, ">$mess") or die $!;
        print (FILE $mess1);
        close (FILE);
}else{
        print "Error: $filename doesn't exist\n";

But I cant seem to get past the strings. I have been looking at it for a while and I thought it might help to have some experts look at it.

Thanks
in advance!!

Ben

Last edited by pludi; 04-21-2010 at 02:01 AM..

bigben1220

View Public Profile for bigben1220

Find all posts by bigben1220

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Copying files from file to another

How do I copy one file from one unix file to another??? I'm new at this, please help..

2. Shell Programming and Scripting

perl - copying files

Folks, here is my code: I am a serious newbie, why doesn't this make copies of my files? I dont get any errors, the files are just not created. Your help is appreciated #!/usr/bin/perl use File::Copy; $PWD = `pwd`; $REPORTDIR = "/usr/local/tripwire/tfs/report"; chdir $REPORTDIR;...

3. Shell Programming and Scripting

Opening Files and checking contents in Perl

Hi All, I need some expert help in performing the following in Perl. I have a code below but it doesn;t seem to work. Can any expert give me some advice? Below are the requirements 1) Open numerous files assigned to an array @FILES. Note that the files are always named with the term...

4. Shell Programming and Scripting

Opening Mulitple files using For loop in Perl

Hi All, I have a total of ten file to open in the Perl script and i am using a for loop to open each file and capture some strings inside each file. Unfortunately, i encounter the below syntax error. I think there should be something wrong with this term reports_${counting}_${_}.txt but i do...

5. Shell Programming and Scripting

Opening File names with spaces inside it !- PERL

I developed a perl code..And the excerpt from it is given below... open(HANDLE,$cmp_path) ; #reading the xml file from the file path while($file_path = <HANDLE>) I have list of XML files to read from a folder. It has some spaces inside the name of the file...I used "\"...

6. Shell Programming and Scripting

KSH: Opening Files based on a file list

I'd like to grep files for key words using korn shell, and compile the actual contents (not just file name) of those files that contain a combination of those grepped key words into one repository file for reference. However, I'm stuck at the combining part. Here's what I have thus far: egrep...

7. UNIX for Dummies Questions & Answers

Opening a file in perl

Hi I need to open a file if a condition(for example a if a regular expression) is met. How do i do this ? open (file) if (some regex).....

8. Shell Programming and Scripting

Printing a message in file without opening it in perl

Hello friends, i have a perl script as below ... for (0 ..$#values) { ##want to print some message here in Report.txt file print `find /abc/xyz/pqr/$values" -type f -ls` >> Report.txt } I am able to get output of print `find /abc/xyz/pqr/$values" -type f -ls` >> Report.txt in...

9. Shell Programming and Scripting

Perl : copying only the latest file to other directory

In linux.. In a directory there are 3 files which I want to copy only the latest file (ls -ltr myfiles*.txt|tail -1) to other directory in perl? Could anyone please help me with the code? Regards, J

10. Shell Programming and Scripting

PERL - Copying ONLY files from one dir to another

I'm writing a Perl script which has its 1st step as to copy files from one directory to another directory. The Source directory has got files with extension, without extension, directories etc. But I want to copy ONLY files with no extension. The files with extensions and directories should not get...

LEARN ABOUT DEBIAN

perl::critic::policy::inputoutput::requirecheckedopen

Perl::Critic::Policy::InputOutput::RequireCheckedOpen(3pUser Contributed Perl DocumentatPerl::Critic::Policy::InputOutput::RequireCheckedOpen(3pm)

NAME

       Perl::Critic::Policy::InputOutput::RequireCheckedOpen - Write "my $error = open $fh, $mode, $filename;" instead of "open $fh, $mode,
       $filename;".

AFFILIATION

       This Policy is part of the core Perl::Critic distribution.

DESCRIPTION

       The perl builtin I/O function "open" returns a false value on failure. That value should always be checked to ensure that the open was
       successful.

	   my $error = open( $filehandle, $mode, $filename );		       # ok
	   open( $filehandle, $mode, $filename ) or die "unable to open: $!";  # ok
	   open( $filehandle, $mode, $filename );			       # not ok

	   use autodie;
	   open $filehandle, $mode, $filename;				       # ok

       You can use autodie, Fatal, or Fatal::Exception to get around this.  Currently, autodie is not properly treated as a pragma; its lexical
       effects aren't taken into account.

CONFIGURATION

       This Policy is not configurable except for the standard options.

AUTHOR

       Andrew Moore <amoore@mooresystems.com>

ACKNOWLEDGMENTS

       This policy module is based heavily on policies written by Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>.

COPYRIGHT

       Copyright (c) 2007-2011 Andrew Moore.  All rights reserved.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.  The full text of this license
       can be found in the LICENSE file included with this module.

perl v5.14.2							    2012-06-07		Perl::Critic::Policy::InputOutput::RequireCheckedOpen(3pm)