Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl SCript to read file content (if else statemenet)
Top Forums Shell Programming and Scripting Perl SCript to read file content (if else statemenet) Post 302898260 by hploh on Monday 21st of April 2014 04:24:03 AM
Old 04-21-2014
Code:
#!/usr/bin/perl

open (FH, '>filereindex.txt') or die 'Could not open file';
my @line = <FH>;
  if ($line == 1) {
    print "NUMBER 1";
  } elsif ( $line == 0) {
   print FH 1;

  }

I m using the above,

if fileindex.txt is 0, then it will write 1 to the file: fileindex.txt [expected result that I want]
BUT
if fileindex.txt is 1, then it will do nothing, I want it to print NUMBER 1

---------- Post updated at 04:24 PM ---------- Previous update was at 04:21 PM ----------

Code:
#!/usr/bin/perl

open (FH, 'filereindex.txt') or die 'Could not open file';
my @line = <FH>;
  if ($line == 1) {
    print "NUMBER 1";
  } elsif ( $line == 0) {
   print FH 1;

  }

I remove the > from the code. IF filereindex.txt = 1, it will print NUMBER 1 [result that I want]
BUT
if filereindex.txt=0, it do nothing [i wanted it to write 1 to the filereindex.txt]
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

How to read the content of the files in unix script

Hi I need help below is my textfile format look like PO Nbr Ln Item Number Description Qty Order Order Date Due Date Status Reply ID Reply Date Reply Qty P304802 1 K0220040 TSX-3225 C 16.367900 MHz 320379 07/01/2008 29/01/2008 REQ OP304802 02/02/2008 190000 P304802 2 K0220040 TSX-3225 C... (0 Replies)
Discussion started by: thila
0 Replies

2. Shell Programming and Scripting

read a file and use the content for mapping

help me pls.. :( i want to read a mapping file. Below is the content of my mapping file. 6221,189,SMSC1,OMC1,WAP1 6223,188,SMSC2,OMC2,WAP2 so when my program running msisdn="622130302310" while not EOF if substring($msisdn,1,4) == "6221" -- > "6221" read from the file then echo... (0 Replies)
Discussion started by: voidmain
0 Replies

3. Shell Programming and Scripting

Read a file content with awk and sed

Hello , I have huge file with below content. I need to read the numeric values with in the paranthesis after = sign. Please help me with awk and sed script for it. 11.10.2009 04:02:47 Customer login not found: identifier=(0748502889) prefix=(TEL) serviceCode=(). 11.10.2009 04:03:12... (13 Replies)
Discussion started by: rmv
13 Replies

4. Shell Programming and Scripting

read file content

i have one file abhi.txt its contents are home8/mc09ats/UnixCw/backup/file1 home8/mc09ats/file2 i want to read this content of file using while loop.. in this i want to seperate the content as follows path=home8/mc09ats/UnixCw/backup file=file1 echo path echo file can you... (1 Reply)
Discussion started by: AbhijitIT
1 Replies

5. Shell Programming and Scripting

How to read file and only output certain content

Hi - I have a file containing data like :- cn=tommy,cn=users,c=uk passwordexpirydate=20100530130623z cn=jane,cn=users,c=uk passwordexpirydate=20100423140734z cn=michael,cn=users,c=uk passwordexpirydate=20100331020044z I want to end up with a file that looks like:-... (6 Replies)
Discussion started by: sniper57
6 Replies

6. Shell Programming and Scripting

perl - cgi script to read file from network

Hi, I have written a cgi perl script to read a file and display its contents. But if i have to access file located on network (local network), then i am unable to do so. However if i run script through shell it works, but through cgi script it generates no result. I have mapped network drive... (0 Replies)
Discussion started by: sarbjit
0 Replies

7. Shell Programming and Scripting

The scope of the shell/perl script is to read the input text file. Validate the expiry date of each

The scope of the shell/perl script is to read the input text file. Validate the expiry date of each certificate and send the mail to the user. The user takes action to add the new certificate to the storage file and user owns the responsibility to update the input text file with the new certificate... (5 Replies)
Discussion started by: casmo
5 Replies

8. Shell Programming and Scripting

cut the variable from the line and use it to find the file and read the content of that file

Hi, I am working on one script..I am having files in the below format file 1 (each line is separated with : delimeter) SPLASH:SPLASH:SVN CIB/MCH:MCH:SVN Now I want from file 1 that most left part of the first line will store in... (6 Replies)
Discussion started by: rohit22hamirpur
6 Replies

9. UNIX and Linux Applications

Perl Script to read an excel file into an array and search in the UNIX directories

Hi, I want the Perl script with versions 5.8.2 and 5.8.5 starting with #!/usr/bin/perl The Perl program should read the excel file or text file line by line and taking into an array and search in the UNIX directories for reference file of .jsp or .js or .xsl with path .The Object names... (2 Replies)
Discussion started by: pasam
2 Replies

10. Shell Programming and Scripting

Perl script to read string from file#1 and find/replace in file#2

Hello Forum. I have a file called abc.sed with the following commands; s/1/one/g s/2/two/g ... I also have a second file called abc.dat and would like to substitute all occurrences of "1 with one", "2 with two", etc and create a new file called abc_new.dat sed -f abc.sed abc.dat >... (10 Replies)
Discussion started by: pchang
10 Replies

LEARN ABOUT OPENSOLARIS

eof

eof(1T) 						       Tcl Built-In Commands							   eof(1T)

__________________________________________________________________________________________________________________________________________________

NAME

       eof - Check for end of file condition on channel

SYNOPSIS

       eof channelId
_________________________________________________________________

DESCRIPTION

       Returns 1 if an end of file condition occurred during the most recent input operation on channelId (such as gets), 0 otherwise.

       ChannelId  must	be  an	identifier for an open channel such as a Tcl standard channel (stdin, stdout, or stderr), the return value from an
       invocation of open or socket, or the result of a channel creation command provided by a Tcl extension.

EXAMPLES

       Read and print out the contents of a file line-by-line:
	      set f [open somefile.txt]
	      while {1} {
		  set line [gets $f]
		  if {[eof $f]} {
		      close $f
		      break
		  }
		  puts "Read line: $line"
	      }

       Read and print out the contents of a file by fixed-size records:
	      set f [open somefile.dat]
	      fconfigure $f -translation binary
	      set recordSize 40
	      while {1} {
		  set record [read $f $recordSize]
		  if {[eof $f]} {
		      close $f
		      break
		  }
		  puts "Read record: $record"
	      }

SEE ALSO

       file(1T), open(1T), close(1T), fblocked(1T), Tcl_StandardChannels(3TCL)

KEYWORDS

       channel, end of file

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +--------------------+-----------------+
       |  ATTRIBUTE TYPE    | ATTRIBUTE VALUE |
       +--------------------+-----------------+
       |Availability	    | SUNWTcl	      |
       +--------------------+-----------------+
       |Interface Stability | Uncommitted     |
       +--------------------+-----------------+
NOTES

       Source for Tcl is available on http://opensolaris.org.

Tcl									7.5								   eof(1T)
All times are GMT -4. The time now is 10:33 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy