Sponsored Content
Full Discussion: Delimiter checking
Top Forums Shell Programming and Scripting Delimiter checking Post 302481761 by fpmurphy on Sunday 19th of December 2010 09:54:32 PM
Old 12-19-2010
Code:
#!/usr/local/bin/perl

use strict;
use warnings;

open (FILE, "<infile") or die $!;

while (<FILE>) {
    print "Line $. has ",  $_ =~ tr/,//, " delimiters\n";
}
close FILE;

or as a Perl one liner
Code:
perl -lne 'print "Line $. has ",  $_ =~ tr/,//, " delimiters"' infile


Last edited by fpmurphy; 12-19-2010 at 11:06 PM..
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

from - to delimiter

hey guys can you please help me out, i'm having problem in cutting strings. I need a delimiter to cut string. sample a.txt "ID", "1234" , "iam bighippo", "help!" "ID", "1235" , "again0", "xxxxxxx1" "ID", "1236" , "again1", "xxxxxxx2" "ID", "1237" , "again2", "xxxxxxx3" how do... (6 Replies)
Discussion started by: bighippo
6 Replies

2. UNIX for Dummies Questions & Answers

Delimiter

I am having the following file. I need to insert a delimiter in this file. I used sed but its not working. AAABBB 9 JJJ AAABBC 9 TTTTT AAABBA 8 JJJ AAABBC 7 TTTTT AAABBC 6 TTTTT Now i want the output file as: AAA|BBB| |9| |JJJ| AAA|BBC| |9| | |TTTTT| (3 Replies)
Discussion started by: sivakumar.rj
3 Replies

3. Shell Programming and Scripting

Substring based on delimiter, finding last delimiter

Hi, I have a string like ABC.123.XYZ-A1-B2-P1-C4. I want to delimit the string based on "-" and then get result as only two strings. One with string till last hyphen and other with value after last hyphen... For this case, it would be something like first string as "ABC.123.XYZ-A1-B2-P1" and... (6 Replies)
Discussion started by: gupt_ash
6 Replies

4. Shell Programming and Scripting

delete delimiter

Hi All, I wanted to replace | to space from 3rd occurence onwards: I Used below: echo "a|b|c|d|e" |sed 's/\|/ /3/g' Got output: a|b|c d|e expecting Output: a|b|c d e (7 Replies)
Discussion started by: Jairaj
7 Replies

5. Shell Programming and Scripting

Help regarding the delimiter

Hi, I am trying to load data from a file to oracle DB. The file am using has a ";" as a delimiter. While I load the file, I want to check whether the file is having the correct delimiter or not. if not, the file should not be processed. Is there any way that i could handle this scenario using... (3 Replies)
Discussion started by: smileyreddy
3 Replies

6. Shell Programming and Scripting

How to cut by delimiter, and delimiter can be anything except numbers?

Hi all, I have a number of strings like below: //mnt/autocor/43°13'(33")W/ and i'm trying to get the numbers in this string, for example 431333 please help thanks ahead (14 Replies)
Discussion started by: sunnydanniel
14 Replies

7. Shell Programming and Scripting

how to get everything before the last delimiter?

hi all, i have a string with a number of "/"s as delimiter. and i want everything BEFORE the last delimiter i know to use basename to get everything after the last delimiter. thx a lot! (2 Replies)
Discussion started by: sunnydanniel
2 Replies

8. SCO

Stop boot system at "Checking protected password and checking subsystem databases"

Hi, (i'm sorry for my english) I'm a problem on boot sco unix 5.0.5 open server. this stop at "Checking protected password and checking subsystem databases" (See this image ) I'm try this: 1) http://www.digipedia.pl/usenet/thread/50/37093/#post37094 2) SCO: SCO Unix - Server hangs... (9 Replies)
Discussion started by: buji
9 Replies

9. Shell Programming and Scripting

Shell script to put delimiter for a no delimiter variable length text file

Hi, I have a No Delimiter variable length text file with following schema - Column Name Data length Firstname 5 Lastname 5 age 3 phoneno1 10 phoneno2 10 phoneno3 10 sample data - ... (16 Replies)
Discussion started by: Gaurav Martha
16 Replies

10. Shell Programming and Scripting

Perl Code to change file delimiter (passed as argument) to bar delimiter

Hi, Extremely new to Perl scripting, but need a quick fix without using TEXT::CSV I need to read in a file, pass any delimiter as an argument, and convert it to bar delimited on the output. In addition, enclose fields within double quotes in case of any embedded delimiters. Any help would... (2 Replies)
Discussion started by: JPB1977
2 Replies
vendorlib(3pm)						User Contributed Perl Documentation					    vendorlib(3pm)

NAME
vendorlib - Use Only Core and Vendor Libraries in @INC SYNOPSIS
#!/usr/bin/perl use vendorlib; use strict; use warnings; use SomeModule; # will only search in core and vendor paths ... DESCRIPTION
In a system distribution such as Debian, it may be advisable for Perl programs to ignore the user's CPAN-installed modules and only use the distribution-provided modules to avoid possible breakage with newer and unpackaged versions of modules. To that end, this pragma will replace your @INC with only the core and vendor @INC paths, ignoring site_perl and $ENV{PERL5LIB} entirely. It is recommended that you put "use vendorlib;" as the first statement in your program, before even "use strict;" and "use warnings;". BUGS
Please report any bugs or feature requests to "bug-vendorlib at rt.cpan.org", or through the web interface at <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=vendorlib>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. SUPPORT
You can find documentation for this module with the perldoc command. perldoc vendorlib You can also look for information at: o RT: CPAN's request tracker <http://rt.cpan.org/NoAuth/Bugs.html?Dist=vendorlib> o AnnoCPAN: Annotated CPAN documentation <http://annocpan.org/dist/vendorlib> o CPAN Ratings <http://cpanratings.perl.org/d/vendorlib> o Search CPAN <http://search.cpan.org/dist/vendorlib/> ACKNOWLEDGEMENTS
mxey and jawnsy on oftc #debian-perl helped to hash out the design for this. ribasushi reviewed the initial version and pointed out that @INC order matters. AUTHOR
Rafael Kitover, "<rkitover at cpan.org>" LICENSE AND COPYRIGHT
Copyright 2011 Rafael Kitover. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. perl v5.10.1 2011-01-17 vendorlib(3pm)
All times are GMT -4. The time now is 05:43 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy