Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^8: Adding a TAB after a certain ammount of characters

by choroba (Bishop)
on Apr 17, 2013 at 16:32 UTC ( #1029177=note: print w/replies, xml ) Need Help??


in reply to Re^7: Adding a TAB after a certain ammount of characters
in thread Adding a TAB after a certain ammount of characters

Almost. Use lexical file handles and three argument open:
open my $FILE, '<', 'file1.txt' or die "Cannot open file1.txt: $!";

To iterate over the lines of the file, use the diamond operator in a while loop:

while (my $text = <$FILE>) { chomp $text; my @cums = (0); # ... }
You can define the @offs outside the loop because they never change.
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^9: Adding a TAB after a certain ammount of characters
by biancoari (Initiate) on Apr 17, 2013 at 17:33 UTC

    Thanks everyone, I was able to complete it, here is the the final product

    #!/usr/local/bin/perl open my $FILE, '<', 'rapipago.txt' or die "Cannot open file1.txt: $!"; use strict; use warnings; use feature 'say'; while (my $text = <$FILE>) { chomp $text; my @cums = (0); my @offs = ( 17, 6, 31, 3, 3 ); my @cums = ( 0 ); push @cums, $_ + $cums[ -1 ] for @offs; substr $text, $_, 0, q{-} for reverse @cums[ 1 .. $#cums ]; say $text; }

    Now I have another question, is there a way that instead of printing with say, the results prints on another file, or the program modifies my first file with the result?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1029177]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2018-11-13 02:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My code is most likely broken because:
















    Results (149 votes). Check out past polls.

    Notices?