• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 214
  • Last Modified:

Perl code to write values to a file

Hello

Could you help me with some code ? I have to do some stats to some data then print it back to a new file (to be created at the time)

what code would I use to create a file and print out the contents of variables to it ?
0
Europa MacDonald
Asked:
Europa MacDonald
  • 2
1 Solution
 
Adam314Commented:

#The variables, and their values
my $v1=1;
my $v2=2;
 
open(my $fh, ">filename.txt") or die "filename.txt: $!\n";
print $fh "v1=$v1\n";
print $fh "v2=$v2\n";
close($fh);

Open in new window

0
 
Europa MacDonaldChief slayer of dragonsAuthor Commented:
thankyou
0
 
mrjoltcolaCommented:
Using your other question as a sample.
#!/usr/bin/perl
 
open(IN, "<in.txt") or die;
open(OUT, ">out.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);
      # Do some random calculations
      $n1 += 1;
      $n2 += 2;
      print OUT "$n1,$n2,$n3,$n4,$n5,$n6,$n7\n";
   }
}

Open in new window

0
 
Europa MacDonaldChief slayer of dragonsAuthor Commented:
thank you    mrjoltcola
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now