Solved

Perl code to read from a file

Posted on 2009-07-06
7
156 Views
Last Modified: 2012-05-07
Hello, I have a small stats project to work on.

I am learning perl, but have to learn it in a very short space of time.

Could anyone help me with some code, which would open a text file, draw out 7 comma delineated numbers, ie, 34,56,76,12,1,69,64 and insert them as individual entities into scalar variables ?

thanks

Mick
0
Comment
Question by:MichaelGlancy
  • 4
  • 3
7 Comments
 
LVL 40

Accepted Solution

by:
mrjoltcola earned 500 total points
ID: 24789471
Here is one way.
#!/usr/bin/perl
 
open(IN, "<test.txt") or die;
 
my $s;
 
while($s = <IN>) {
   if($s =~ /(\d+),(\d+),(\d+),(\d+),(\d+),(\d+),(\d+)/) {
      my ($n1, $n2, $n3, $n4, $n5, $n6, $n7) = ($1, $2, $3, $4, $5, $6, $7);
      print "n1 = $n1,  n7 = $n7\n";
   }
}

Open in new window

0
 

Author Closing Comment

by:MichaelGlancy
ID: 31600371
thankyou
0
 

Author Comment

by:MichaelGlancy
ID: 24789497
it doesn't print to the command line screen, should it ?
0
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

 
LVL 40

Expert Comment

by:mrjoltcola
ID: 24789514
You are welcome.

Also look at the "split" function, you can split comma separated lines easily with it. I often prefer an explicit regular expression,


my @nums = split /,/, "1,2,3,4,5,6,7"

#!/usr/bin/perl
 
open(IN, "<test.txt") or die;
 
my $s;
 
while($s = <IN>) {
   my @nums = split /,/, $s;
   foreach (@nums) {
      print "$_\n";
   }
}

Open in new window

0
 
LVL 40

Expert Comment

by:mrjoltcola
ID: 24789520
>>it doesn't print to the command line screen, should it ?

Yes, with the test data I used. I made a file test.txt with one line of text:  34,56,76,12,1,69,64

0
 

Author Comment

by:MichaelGlancy
ID: 24789523
I am using windows, should this make a difference ?
0
 

Author Comment

by:MichaelGlancy
ID: 24789532
I apologise, it did that time.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question