Sponsored Content
Full Discussion: Perl Split for text in file
Top Forums Shell Programming and Scripting Perl Split for text in file Post 302392003 by ahmad.diab on Wednesday 3rd of February 2010 06:12:37 AM
Old 02-03-2010
after the below modification use below code:-

Code:
perl -nlaF'\|' -e '
if ($F[2] eq "empty" ) {
           $temp=$F[1] ;
           $F[1]=$F[2] ;
           $F[2]=$temp ;
           $end=@F ;
           $"="\|" ;
           print "@F[0..$end-5,$end-3..$end-1] "  if (@F) ;
               }
else { print $_ ; } ;
eof and close ARGV ;
' File.txt

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Split text file by pages

Hello! Firts of all, I'm sorry for my English. My problem: I have text file with few Form Feed symbols (FF, ASCII code =12) inside (for example - some report, consists of some pages for printing). I want to split this text by pages - each page (until FF symbol) in single file. I... (2 Replies)
Discussion started by: ranri
2 Replies

2. Shell Programming and Scripting

how to get split output of a file, using perl script

Hi, I have file: data.log.1 ### s1 main.build.3495 main.build.199 main.build.3408 ###s2 main.build.3495 main.build.3408 main.build.199 I want to read this file and store in two arrays in Perl. I have following command, which is working fine on command prompt. perl -n -e... (1 Reply)
Discussion started by: ashvini
1 Replies

3. Shell Programming and Scripting

How do I split file into pieces with PERL?

How do I split file into pieces with PERL? IE file.txt head 1 2 3 4 end head 5 6 7 8 9 end n so on (7 Replies)
Discussion started by: 3junior
7 Replies

4. Shell Programming and Scripting

Split text file

Hi all, I am very new to shell scripting and some help is greatly appreciated. I have 10 column based text files, i would like to split each of them into 6 files ; the 1st one having columns 1, 2 ,3,4 , the second one having columns 1,2,8,9 etc. Is there a way I could get 60 files out my... (3 Replies)
Discussion started by: shreymuk
3 Replies

5. Shell Programming and Scripting

perl script to split the text file after every 4th field

I had a text file(comma seperated values) which contains as below 196237,ram,25-May-06,ram.kiran@xyz.com,204183,Pavan,4-Jun-07,Pavan.Desai@xyz.com,237107,ram Chandra,15-Mar-10,ram.krishna@xyz.com ... (3 Replies)
Discussion started by: giridhar276
3 Replies

6. Shell Programming and Scripting

Perl : to split the tags from xml file

I do have an xml sheet as below where I need the perl script to filter only the hyperlink tags. <cols><col min="1" max="1" width="30.5703125" customWidth="1"/><col min="2" max="2" width="7.140625" bestFit="1" customWidth="1"/> <col min="3" max="3" width="32.28515625" bestFit="1"... (3 Replies)
Discussion started by: scriptscript
3 Replies

7. Shell Programming and Scripting

PERL: split 2 part from singel file.

Hi, I would like to split single fine into two array .. Example: file.txt --------------Installation -------------------- #GXTOOL=GxTools-20130501.tar.gz GCSS=GExpLinux-BE-3700.0.12.37.tar.gz TOP=TOPLinux-BE-3700.0.6.21.tar.gz GHDER=GHDERLinux-BE-3700.0.6.20.tar.gz... (2 Replies)
Discussion started by: Mani_apr08
2 Replies

8. Shell Programming and Scripting

Split a text file into multiple text files?

I have a text file with entries like 1186 5556 90844 7873 7722 12 7890.6 78.52 6679 3455 9867 1127 5642 ..N so many records like this. I want to split this file into multiple files like cluster1.txt, cluster2.txt, cluster3.txt, ..... clusterN.txt. (4 Replies)
Discussion started by: sammy777
4 Replies

9. Shell Programming and Scripting

How to target certain delimiter to split text file?

Hi, all. I have an input file. I would like to generate 3 types of output files. Input: LG10_PM_map_19_LEnd_1000560 LG10_PM_map_6-1_27101856 LG10_PM_map_71_REnd_20597718 LG12_PM_map_5_chr_118419232 LG13_PM_map_121_24341052 LG14_PM_1a_456799 LG1_MM_scf_5a_opt_abc_9029993 ... (5 Replies)
Discussion started by: huiyee1
5 Replies

10. Shell Programming and Scripting

Split the text file into two

OS : RHEL 7.3 I have a file like below. I want to move (cut and paste) the first 7 lines of file1 to another file (file2). How can I do this ? In my real life scenario, I will be moving first 12 millions lines of file1 to file2 $ cat file1.txt 7369|SMITH |CLERK | ... (5 Replies)
Discussion started by: kraljic
5 Replies
Text::QRCode(3pm)					User Contributed Perl Documentation					 Text::QRCode(3pm)

NAME
Text::QRCode - Generate text base QR Code SYNOPSIS
use Text::QRCode; my $arrayref = Text::QRCode->new()->plot("Some text here."); print join " ", map { join '', @$_ } @$arrayref; # You will get following output. ******* * ** ******* * * * * * * * *** * * *** * * *** * ** * *** * * *** * * * * *** * * * **** * * ******* * * * ******* * ** ** ** * *** * * * ** *** * * * **** * * ** * * * * * * ** *** ** * *** ** ** * ** * ** * ******* ***** *** * * * ** * **** * *** * * * * * * *** * * ** * * * *** * *** * *** * * ** * * *** ******* * * **** DESCRIPTION
This module allows you to generate QR Code using ' ' and '*'. This module use libqrencode '2.0.0' and above. METHODS
new $qrcode = Text::QRCode->new(%params); The "new()" constructor method instantiates a new Text::QRCode object. "new()" accepts some parameters are the same as "Imager::QRCode". plot($text) $arrayref = $qrcode->plot("blah blah"); Create a QR Code map. This method returns array reference ploted QR Code with the given text. INSTANT METHODS
plot_qrcode($text, \%params) Instant method. $text is input text. %params is same parameter as "new()". SEE ALSO
"Imager::QRCode", "Term::QRCode", "HTML::QRCode", "http://www.qrcode.com/", "http://megaui.net/fukuchi/works/qrencode/index.en.html" AUTHOR
Yoshiki Kurihara "<kurihara __at__ cpan.org>" LICENCE
Copyright (c) 2007, Yoshiki KURIHARA "<kurihara __at__ cpan.org>". This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.14.2 2011-11-15 Text::QRCode(3pm)
All times are GMT -4. The time now is 06:59 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy