Perl Cut Command

[Buck Turgidson]

I have a file of data that is 60 bytes long. I want to cut (remove) bytes
21-40, and just print 1-20 and 21 thru 60 on a line.

The Unix cut command does the opposite of what I want. "cut --bytes=21-40"
returns those bytes, but I want to remove them.

Is there a simple perl one-liner that will remove them?

I appreciate it.

 

[Buck Turgidson]

21-40, and just print 1-20 and 21 thru 60 on a line.
That should read "just print 1-20 and 41 thru 60 on a line"

 

[David K. Wall]

That should read "just print 1-20 and 41 thru 60 on a line"

[untested]

perl -ne "print substr($_,0,20), substr($_,40,20)" filename

 

[Michael Zawrotny]

That should read "just print 1-20 and 41 thru 60 on a line"

You could try "cut -b1-20,41-60".


Mike

 

[Buck Turgidson]

You could try "cut -b1-20,41-60".

Thanks. That works. I didn't know I could do split ranges.

 

[Charles DeRykus]

I have a file of data that is 60 bytes long. I want to cut (remove) bytes
21-40, and just print 1-20 and 21 thru 60 on a line.

The Unix cut command does the opposite of what I want. "cut --bytes=21-40"
returns those bytes, but I want to remove them.

Is there a simple perl one-liner that will remove them?

perl -nle 'print /(.{20}).{40}(.*)/' <file>

 

[Tintin]

You could try "cut -b1-20,41-60".

$ perldoc -f cut
No documentation for perl function 'cut' found

 

[Steve Grazzini]

perl -ne "print substr($_,0,20), substr($_,40,20)" filename

perl -pe 'substr($_, 20, 20, "")' filename

 

[Ben Morrow]

That should read "just print 1-20 and 41 thru 60 on a line"

perl -ne'BEGIN { $/ = \1 } print if $. < 21 or $. > 40'

perl -ne'print ((unpack "a"x60, $_)[0..19,40..59])'

perl -ne'print unpack "a20x20a20", $_'

perl -pe'pos = 21; s/\G.{20}//'

Ben

 

[Michael Zawrotny]

$ perldoc -f cut
No documentation for perl function 'cut' found

The "cut" in question was the *nix utility. The OP was having trouble
getting those columns from a file with cut, and went looking for a
perl solution when it wasn't working, so I showed how cut could do the
job. See "man cut" for details.


Mike

 

[Tintin]

The "cut" in question was the *nix utility. The OP was having trouble
getting those columns from a file with cut, and went looking for a
perl solution when it wasn't working, so I showed how cut could do the
job. See "man cut" for details.

I should have added my sarcasm tags. This is a newsgroup for discussing
Perl.

 

[David K. Wall]

perl -pe 'substr($_, 20, 20, "")' filename

Ah, I'd forgotten that substr() will take a 4th argument...