Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^3: print and extract the line

by Hugmeir (Sexton)
on Jul 07, 2010 at 15:37 UTC ( #848490=note: print w/replies, xml ) Need Help??

in reply to Re^2: print and extract the line
in thread print and extract the line

I can't quite make head or tails of your posts, but I'm bored anyhow, so here's my take:

#! /usr/bin/perl -w use strict; die "Not enough arguments" if $#ARGV < 2; my ($start, $end, $file) = @ARGV; open FILE, $file or die "Couldn't open file"; while (<FILE>) { my @chars = split //; print @chars[$start..$end], "\n" if @chars >= $end; }

It's quite a derail, but if someone could point me towards a node with examples or some sort of documentation of autodie, I'd be grateful (my Super Search-fu isn't strong).

Replies are listed 'Best First'.
Re^4: print and extract the line
by ww (Archbishop) on Jul 07, 2010 at 18:25 UTC

    + + for effort & brevity

    Note, however, that this code prints six-character strings, whereas OP's example output (in the narrative) looks for only five.

    As for autodie and your search fu, Super Search doesn't require a whole lot of fu;
    here's the output where the only input was "autodie": ?node_id=3989;BIT=autodie

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://848490]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2018-05-25 15:04 GMT
Find Nodes?
    Voting Booth?