Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Help with perl script while reading a file
Top Forums Shell Programming and Scripting Help with perl script while reading a file Post 302423734 by ramakanth_burra on Saturday 22nd of May 2010 12:50:18 AM
Old 05-22-2010
More information on the issue
Hi, thanks for replying. Please find the below solution that I was trying to do.

First I read the directory in which my header files are there, and then read each file to search for the string "_mef"

Code:
#!/usr/bin/perl

use warnings;
my @files = glob("*.h");
$find = "_mef";
foreach my $file (@files)
	{
		FindString($file);
	}

sub FindString
	{
		my $filename = $_[0];
		open (FILE, "<$filename") or die $!;
		my @file = <FILE>;
	
		for(@file)
		{
			if($_=~/$find/)
			{
				foreach $line (@file)
				{
# This is where I am unable to proceed further depending on the below scenario

This will always be a string in the header file say "xyz" until which I have to browse through the file, and then write all the data types, their identifiers and values that come before that string. There could be few which come after the string "xyz" but I have to ignore them.

What I am want to achieve is to read line by line in the file until I hit the "xyz"
and then write the info into an excel file.

Kind Regards,
RB
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl Reading from File

is there a perl equivalent to sscanf? or something where I get the strings separated by spaces? (1 Reply)
Discussion started by: karyn1617
1 Replies

2. Shell Programming and Scripting

Reading each line of a file in perl script

HI I need to read each line (test.txt) and store it in a array (@test) How to do it in perl. Suppose i have a file test.txt. I have to read each line of the test.txt file and store it in a array @test. How to do it in perl. Regards Harikrishna (3 Replies)
Discussion started by: Harikrishna
3 Replies

3. Shell Programming and Scripting

perl - reading from a file conditionally

Hi, I am new to perl. I want to read from a file on the basis of some conditions.. I want to define parameters in a configuration file in such a manner like... etc.. in my perl script, theer is a variable like this.. then i want to read values from first if block from the file... (1 Reply)
Discussion started by: shellwell
1 Replies

4. Shell Programming and Scripting

SOLVED: reading config file in a perl script

Hi! I have a need to do this in Perl. script.pl -config file The script would be doing a wget/LWP on a URL which is defined in the config file. So when I run the script it should return either one of these conditions - 1) OK with exit status 0. Should also print "wget URL" 2)... (6 Replies)
Discussion started by: jacki
6 Replies

5. Shell Programming and Scripting

Help need in perl script reading from file

Need perl script, data file will be csv format. I have text file contains 2 colums. Filename Foldernumber aaaa 13455 bbbb 23465 cccc 26689 I have two location 1. files present and 2. folders present. I need to search for file and folder if folder... (3 Replies)
Discussion started by: hnkumar
3 Replies

6. Shell Programming and Scripting

Perl Script Not Reading Input Files Correctly

This is one of the strangest things that's happening to me. I'm writing a new Perl script that is trying to read a file. The file is originally in .mof format, but I also saved the contents into a .txt file. As a simple test, I wrote this: #!/user/bin/perl -w use strict; ... (3 Replies)
Discussion started by: kooshi
3 Replies

7. UNIX for Dummies Questions & Answers

reading a file in Perl

If a form's action is the following Perl script how do I make it print the entire contents of the file on the screen? if(param()) { my $uploadedFile = param('file');#in the html page 'file' is the value of the name attribute of the input my $fh = upload($uploadedFile); ... (1 Reply)
Discussion started by: zerohour
1 Replies

8. Shell Programming and Scripting

Perl Script for reading table format data from file.

Hi, i need a perl script which reads the file, content is given below. and output in new file. TARGET DRIVE IO1 IO2 IO3 IO4 IO5 ------------ --------- --------- --------- --------- --------- 0a.1.8 266 236 ... (3 Replies)
Discussion started by: asak
3 Replies

9. Shell Programming and Scripting

Need help with perl script with a while loop reading file

Good morning, I appreciate any assistance that I can get from the monks out there. I am able to get this to work for me so that I can do a hostname lookup if I only specify one hostname in the script. What I want to do is have a file with hostnames and do lookups for each name in the file. Here is... (1 Reply)
Discussion started by: brianjb
1 Replies

10. Shell Programming and Scripting

Error while reading variable from a file in perl script

I have a file abc.ini and declared many variables in that file, one of the variable(DBname) value I am trying to read in my perl script but getting error. File abc.ini content # database name DBname =UATBOX my $ex_stat; my $cmd_output; $ex_stat = "\Qawk '/^DBname/{print... (2 Replies)
Discussion started by: Devesh5683
2 Replies

LEARN ABOUT SUNOS

wnnatod

wnnatod(1)							   User Commands							wnnatod(1)

NAME

       wnnatod - Convert an EUC text dictionary to a binary dictionary

SYNOPSIS

       /usr/bin/wnnatod [-s num] [-R] [-S] [-U] [-r] [-N] [-n] [-P filename] [-p filename] [-I] [-e] [-h filename] binary_dictionary_filename

DESCRIPTION

       wnnatod	reads  a  Japanese  EUC text dictionary from the standard input, converts it to a binary dictionary and writes it to the specified
       binary_dictionary_filename.

OPTIONS

       The following options are available.

       -s num	       Specifies the amount of memory to allocate (in words).  num should be a little over the number of words in the  dictionary.
		       Normally  you do not need to specify this option. The default is 70,000. If wnnatod fails, notifying memory shortage, retry
		       the command with -s option.

       -R	       Converts the EUC text dictionary to a reverse-searchable  binary dictionary (default).

       -S	       Converts the EUC text dictionary to a fixed-format dictionary.

       -U	       Converts the EUC text dictionary to an editable dictionary.

       -r	       Reverses the order of Kana and Kanji  when converting the EUC text dictionary.

       -N	       Sets the dictionary password to "*".

       -n	       Sets the frequency password to "*".

       -P filename     Specifies the file name of the dictionary password.

       -p filename     Specifies the file name of the frequency password.

       -I	       Creates a system dictionary.

       -e	       Registers an entry's reading (Hiragana) as word in the binary dictionary if the reading and the word are the same (that is,
		       the  word  consists  of	 only  Hiragana).   With this option, you cannot convert a text dictionary to a reverse-searchable
		       binary dictionary.

       -h filename     Specifies the file name that contains part of speech information.

ATTRIBUTES

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

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE	     |	    ATTRIBUTE VALUE	   |
       |Availability		     |SUNWjwncu 		   |
       +-----------------------------+-----------------------------+

SEE ALSO

       wnndictutil(1), wnndtoa(1), wnnotow(1), wnntouch(1)

SunOS 5.10							    2 Mar 1998								wnnatod(1)
All times are GMT -4. The time now is 01:10 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy