06-06-2012
Perl file handling error
Hi,
I am reading and file and writting each word to other file.
where I have used array to store the data.
I am getting below error as
"Use of uninitialized value in concatenation (.) or string at customize_split_raw.pl line 51, <IN_FILE> "
Where my line 51 code is
50 foreach $word1 ( @arrValue ) {
51 print TEMP "$word1\t";
52 }
53 print TEMP "\n";
54 }
can you help me to resolve the error.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi,
I am opening a file......then i am wrting some data into it......and i am reopening the file again but ......i get a error cannot open file.......
$::file= "\adder\testfile.txt"
open(TEST1,$::file);
some write operation
close(TEST1)
open(TEST1,$::file) 'I GET A ERROR CAN OPEN... (2 Replies)
Discussion started by: vivekshankar
2 Replies
2. Shell Programming and Scripting
Hi Experts,
I have a big text file, so I want read it at eof to upper bound !. after I use a fseek to go SEEK_END, is it possible to step up upperbound?
Best Regards.
Note that I'm used perl script. (2 Replies)
Discussion started by: Zaxon
2 Replies
3. Shell Programming and Scripting
Hi ,
Is there any way to achieve following using perl program (i.e without using system command).
1.system ("echo 'test' > /usr/spool/ship.csv");
2.system ("cat /usr/ajay_test* >> /usr/spool/RAM/work/patil.csv");
3.system("> /usr/spool/ajay.txt");
e.g
for system("rm -f... (1 Reply)
Discussion started by: ajaypatil_am
1 Replies
4. Shell Programming and Scripting
Hello all,
I have created a Perl script that tries to open connections to various systems on different ports in order to see if the machines are reachable, the ports are open, etc.
There appears to be a difference between Solaris (10) and Linux (RH/Oracle and Ubuntu) in the status or error it... (4 Replies)
Discussion started by: Hollinch
4 Replies
5. Infrastructure Monitoring
I can get this working, but if something is down I get an error and the script does not move on. I can not get the "else" function working. What might I be doing wrong?
use SNMP::Simple
my %ios = ();
$list="list.list";
open(DAT, $list) || die("Can't Open List");
@raw_data=<DAT>;... (4 Replies)
Discussion started by: mrlayance
4 Replies
6. Programming
$# some text
$$ some text
$@ some text
$$. some text
Mg1 some text
Mg2 some text
.
.
.
Mg10 some text
The above 10 lines are to be extracted except the lines starting from $#,$$.,... (4 Replies)
Discussion started by: baig.abdul
4 Replies
7. Shell Programming and Scripting
I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file.
perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4
How do I handle errors coming out... (1 Reply)
Discussion started by: OTChancy
1 Replies
8. UNIX for Dummies Questions & Answers
Hi
Am making connection to oracle using ISQL as shown in the code.
This code is just a minor part of a big code.
I want to capture the error if the password/login is wrong or if connection is not made.
I need to capture the error code also.
Also, If such an error occurs, i need to exit out... (4 Replies)
Discussion started by: irudayaraj
4 Replies
9. Shell Programming and Scripting
Hi Guys,
I got a csv with pipe delimted file and i want to check second column of the file has any alpha character becuase I am expecting only number in that,
and if any alpha characters then it should throw an error
Thanks in advance (1 Reply)
Discussion started by: Rizzu155
1 Replies
10. Shell Programming and Scripting
Hi,
I have a perl script which is just reading from the file but what I would like to understand is how the counter is moving without using the loop in the script.
Below are the details:
$ more /tmp/abc.txt
This is 0
This is 1
This is 2
This is 3
This is 4
This is 5
This is 6
This... (2 Replies)
Discussion started by: siddharthjindal
2 Replies
LEARN ABOUT CENTOS
io::lines
IO::Lines(3) User Contributed Perl Documentation IO::Lines(3)
NAME
IO::Lines - IO:: interface for reading/writing an array of lines
SYNOPSIS
use IO::Lines;
### See IO::ScalarArray for details
DESCRIPTION
This class implements objects which behave just like FileHandle (or IO::Handle) objects, except that you may use them to write to (or read
from) an array of lines. They can be tiehandle'd as well.
This is a subclass of IO::ScalarArray in which the underlying array has its data stored in a line-oriented-format: that is, every element
ends in a "
", with the possible exception of the final element. This makes "getline()" much more efficient; if you plan to do line-
oriented reading/printing, you want this class.
The "print()" method will enforce this rule, so you can print arbitrary data to the line-array: it will break the data at newlines
appropriately.
See IO::ScalarArray for full usage and warnings.
VERSION
$Id: Lines.pm,v 1.3 2005/02/10 21:21:53 dfs Exp $
AUTHORS
Primary Maintainer
David F. Skoll (dfs@roaringpenguin.com).
Principal author
Eryq (eryq@zeegee.com). President, ZeeGee Software Inc (http://www.zeegee.com).
Other contributors
Thanks to the following individuals for their invaluable contributions (if I've forgotten or misspelled your name, please email me!):
Morris M. Siegel, for his $/ patch and the new "getlines()".
Doug Wilson, for the IO::Handle inheritance and automatic tie-ing.
perl v5.16.3 2005-02-10 IO::Lines(3)