Perl script to Archive the data file after the load

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

In PErl script: need to read the data one file and generate multiple files based on the data

We have the data looks like below in a log file. I want to generat files based on the string between two hash(#) symbol like below Source: #ext1#test1.tale2 drop #ext1#test11.tale21 drop #ext1#test123.tale21 drop #ext2#test1.tale21 drop #ext2#test12.tale21 drop #ext3#test11.tale21 drop...

2. Shell Programming and Scripting

How to read file and load data into a script as variable

I need to read a text file that contain columns of data, i need to read 1st column as a function to call, and others are the data i need to get into a ksh script. I am quite new to ksh scripting, i am not very sure how to read each row line by line and the data in each columns of that line, set...

3. Shell Programming and Scripting

Perl script to load data by calling sqlldr

Hello all, I know this is Unix forum, but i also know that there are some experts here who can help me out with this situation; I am loading a data file into oracle table using Perl script by calling sqlldr script. It does not do anything, and no data is getting loaded. Any help,...

4. Shell Programming and Scripting

Shell script to find specific file name and load data

I need help as to how to write a script in Unix for the following: We have 3 servers; The mainframe will FTP them to a folder. In that folder we will need the script to look and see if the specific file name is there and load it to the correct table. Can anyone pls help me out with...

5. Web Development

script to load data from csv file

hello i want a script to load the data line by line from a csv file into a mysql table

6. Shell Programming and Scripting

shell script to read data from text file and to load it into a table in TOAD

Hi....can you guys help me out in this script?? Below is a portion text file and it contains these: GEF001 000093625 MKL002510 000001 000000 000000 000000 000000 000000 000001 GEF001 000093625 MKL003604 000001 000000 000000 000000 000000 000000 000001 GEF001 000093625 MKL005675 000001...

7. Shell Programming and Scripting

Perl script to load text file into DB field

Hello, maybe this post is offtopic, sorry for the inconveniencies (maybe should be in the forum with questions about C, C++, Java, SQL...). I found examples about how to populate different fields from a text file (with MySQL, the LOAD DATA INFILE sentece), but not about how to load a complete...

8. Shell Programming and Scripting

help for a perl script - writing to a data file

Hi, Here is my problem.. i have 2 files (file1, file2).. i have wrote the last two lines and first 4 lines of "file2" into two different variables .. say.. my $firstrec = `head -4 $file2`; my $lastrec = `tail -2 $file2`; and i write the rest of the file2 to a tmpfile and cat it with head...

9. Shell Programming and Scripting

Need help in wrting Load Script for a Load-Resume type of load.

hi all need your help. I am wrting a script that will load data into the table. then on another load will append the data into the existing table. Regards Ankit

10. Shell Programming and Scripting

Shell Script to Load data into the database using a .csv file and .ctl file

Since i'm new to scripting i'm findind it difficult to code a script. The script has to be an executable with 2 paramters passed to it.The Parameters are 1. The Control file name(.ctl file) 2. The Data file name(.csv file) Does anybody have an idea about it? :confused:

LEARN ABOUT MOJAVE

archive::zip::memberread

Archive::Zip::MemberRead(3)				User Contributed Perl Documentation			       Archive::Zip::MemberRead(3)

NAME

       Archive::Zip::MemberRead - A wrapper that lets you read Zip archive members as if they were files.

SYNOPSIS

	 use Archive::Zip;
	 use Archive::Zip::MemberRead;
	 $zip = Archive::Zip->new("file.zip");
	 $fh  = Archive::Zip::MemberRead->new($zip, "subdir/abc.txt");
	 while (defined($line = $fh->getline()))
	 {
	     print $fh->input_line_number . "#: $line
";
	 }

	 $read = $fh->read($buffer, 32*1024);
	 print "Read $read bytes as :$buffer:
";

DESCRIPTION

       The Archive::Zip::MemberRead module lets you read Zip archive member data just like you read data from files.

METHODS

       Archive::Zip::Member::readFileHandle()
	   You can get a "Archive::Zip::MemberRead" from an archive member by calling "readFileHandle()":

	     my $member = $zip->memberNamed('abc/def.c');
	     my $fh = $member->readFileHandle();
	     while (defined($line = $fh->getline()))
	     {
		 # ...
	     }
	     $fh->close();

       Archive::Zip::MemberRead->new($zip, $fileName)
       Archive::Zip::MemberRead->new($zip, $member)
       Archive::Zip::MemberRead->new($member)
	   Construct a new Archive::Zip::MemberRead on the specified member.

	     my $fh = Archive::Zip::MemberRead->new($zip, 'fred.c')

       setLineEnd(expr)
	   Set the line end character to use. This is set to 
 by default except on Windows systems where it is set to 
. You will only need
	   to set this on systems which are not Windows or Unix based and require a line end different from 
.  This is a class method so call as
	   "Archive::Zip::MemberRead"->"setLineEnd($nl)"

       rewind()
	   Rewinds an "Archive::Zip::MemberRead" so that you can read from it again starting at the beginning.

       input_record_separator(expr)
	   If the argument is given, input_record_separator for this instance is set to it. The current setting (which may be the global $/) is
	   always returned.

       input_line_number()
	   Returns the current line number, but only if you're using "getline()".  Using "read()" will not update the line number.

       close()
	   Closes the given file handle.

       buffer_size([ $size ])
	   Gets or sets the buffer size used for reads.  Default is the chunk size used by Archive::Zip.

       getline()
	   Returns the next line from the currently open member.  Makes sense only for text files.  A read error is considered fatal enough to
	   die.  Returns undef on eof. All subsequent calls would return undef, unless a rewind() is called.  Note: The line returned has the
	   input_record_separator (default: newline) removed.

       getline( { preserve_line_ending => 1 } )
	   Returns the next line including the line ending.

       read($buffer, $num_bytes_to_read)
	   Simulates a normal "read()" system call.  Returns the no. of bytes read. "undef" on error, 0 on eof, e.g.:

	     $fh = Archive::Zip::MemberRead->new($zip, "sreeji/secrets.bin");
	     while (1)
	     {
	       $read = $fh->read($buffer, 1024);
	       die "FATAL ERROR reading my secrets !
" if (!defined($read));
	       last if (!$read);
	       # Do processing.
	       ....
	      }

AUTHOR

       Sreeji K. Das <sreeji_k@yahoo.com>

       See Archive::Zip by Ned Konz without which this module does not make any sense!

       Minor mods by Ned Konz.

COPYRIGHT

       Copyright 2002 Sreeji K. Das.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.18.2							    2014-01-08					       Archive::Zip::MemberRead(3)

Shell Programming and Scripting