in reply to Re: save output of program in another file
in thread save output of program in another file

um could you plz correct this? 
open(IN,"100.fastq");
open(OUT,">100-out.fastq");
while($raw=<IN>)
{
    print $raw;
    $raw=~s/\n|\r//g;
    @inf=split(//,$raw);
    for($i=0;$i<scalar(@inf)-15;$i++)
    {
        print  $inf[$i];
    }
    print  "\n";
<>;
}


 close (OUT);

close(IN);

[download]
what do i do in the command line? did i do it right?

Replies are listed 'Best First'.
Re^3: save output of program in another file
by blue_cowdawg (Monsignor) on Jun 06, 2013 at 19:58 UTC

    What environment are you running in? "Command line" is pretty vague.

    A few pointers here: 

    use strict;
use warnings;

    [download]
    is a great way to start a script in Perl since without them Perl won't complain much about what you are doing other than gross syntax errors. With the strictures in place you get told about more subtle issues that can help you get your code working the way you expect it to. 
    open THING,"<some_file.ext" or die "some_file.ext:$!";
open OTHERTHING,">some_other_file.ext" or die "some_other_file:$!";

    [download]
    In my humble opinion the one of the ten commandments of programming in any language is "Thou Shalt Catch Errors." Catching errors is another great step towards programming nirvana where you code does what you expect. There could very well be permission issues either reading a file or writing a file. Your code may not be executing where you think it is. All this and more can cause you issues.

    Finally: what are you expecting your code to do in the first place? What does your input look like?

    Peter L. Berghold -- Unix Professional
    Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg
[reply]
[d/l]
[select]

      Hi!

      my program worked when I changed it to .print OUT "$inf[$i]"

      Some one told me I could redirect the output in the terminal.So I was wondering if i could do that there. I'm using linux-well ubuntu really

      And finally

      href=http://perlmonks.org/index.pl?node_id=1037465

      thats what I have been trying to do since morning:)

[reply]
[d/l]
        To redirect the standard output, change how you run the program.:
        # Without redirection:
./myscript.pl

# With redirection:
./myscript > output.txt

        [download]
        لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
            Some one told me I could redirect the output in the terminal.

        To underscore what choroba said: 

        $ ./myscript.pl > somefile.txt        # create new/overwrite file
# ./myscript.pl >> somefile.txt       # append to a file
# ./myscript.pl 2>&1 > somefile.txt   # stdout and stderr to a file
# ./myscript.pl | less                # stdout to stdin of a program

        [download]
            I'm using linux-well ubuntu really And finally
        Ubuntu is a distribution of Linux from the Debian family of Linux distros.

        Peter L. Berghold -- Unix Professional
        Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg
[reply]
[d/l]

In Section Seekers of Perl Wisdom