02-13-2009
First let me say that i am no programmer and have little knowledge. And that i am running the Perl Script on Windows OS, which i forgot to mention that
having that said i am trying to do this on a larger data set and automate the process. This is what i have so far (plz keep in mind i just learnt Perl)
#! usr/bin/perl -w
# print qq(Insert the file path of the file to convert);
# $input = <STDIN>;
# chomp $input;
# print qq(Insert the file path of the file to write to);
# $output = <STDIN>;
# chomp $output;
open(FILE, "WorkItems.csv" || die "Can't open file: $!";
@lines = <FILE>;
close (FILE);
foreach $line (@lines) {
$_ = $line;
s#\t#,;
}
open (NEWFILE, ">test1.txt") || die "Opening test1.txt: $!";
NEWFILE = @lines;
close (NEWFILE);
exit 0;
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hello all,
i have a comma delimited file.
i want to replace the commas in the file with the tilde symbol using sed.
how can i do this?
thanks. (4 Replies)
Discussion started by: femig
4 Replies
2. UNIX for Dummies Questions & Answers
Hello all,
This is my first post here, so please excuse me if this question is too obvious or has been asked before. I am new to Unix and although I tried to search your forum for the answer to my question, I could not find an answer that would help me.
I have a 500MB csv file with numeric values... (1 Reply)
Discussion started by: finwhiz
1 Replies
3. Shell Programming and Scripting
Hello Im new here.I need to replace strings and change it into csv format, or at least saves the file as csv if that would work :p. Heres an example of my scenario
1) I have a log file, named abc.log, and its like a txt based file anyway, and the content looks like this
... (2 Replies)
Discussion started by: tententen
2 Replies
4. Shell Programming and Scripting
Hi, I have a problem..
1) I have a file that contains the lines as below :
VRF-TM_DummyLab/mse02.lab,mse02.lab,ge-2/0/7.222
VRF-EMS_HUAWEI_MSAN_208/mse01.lab,mse01.lab,xe-1/0/0.208
2) I need a method to read this file, line by line
from :... (5 Replies)
Discussion started by: msafwan82
5 Replies
5. Shell Programming and Scripting
Hi,
I have the following text which I want to search and replace using perl and sed. I would appreciate any help.
Please notice the file contains schema name with a single dot and a double dot . &&WEBDIR_SCHEMA. and &&WEBDIR_SCHEMA .. }
I would like to change it to the acutal schema... (5 Replies)
Discussion started by: jville
5 Replies
6. Shell Programming and Scripting
Hi everyone, is there any way in perl using which we can print the selective words in bold when we write the output to a csv file?
Please find the example below
1. Filename: A
2. name age 12
3. city add 23
Line1 should only be bold. Outputs from other files being read in the... (2 Replies)
Discussion started by: ramakanth_burra
2 Replies
7. UNIX for Advanced & Expert Users
Hi All,
Could some one help me on one of my requirement below:
I have a sequential file with 4fields in it and it is a comma (,) seperated file.
Delimeter is 'comma'.
But in of the file column for ex: 3rd column it is 'Description' (column name) I am getting the values with commas.... (6 Replies)
Discussion started by: eskay_s
6 Replies
8. Shell Programming and Scripting
Hello,
I need to read a csv file and I am trying to replace a comma with a text DSEE?DSEE.
Example
Input
"Chapter","NewTrains, "oldTrains","Delayed",10,"London"
"Chapter","Newbuses,oldbuses","On Time",20,"London"
Output
"Chapter","NewTrainsDSEE?DSEE... (5 Replies)
Discussion started by: venkatvani
5 Replies
9. Shell Programming and Scripting
Hi
I need to write a Perl script that the file given as first argument of the command line that will find all occurrences of the string given as the third argument of the command line and replace with the string given as the fourth argument. Name newfound file is specified as the second... (3 Replies)
Discussion started by: nekoj
3 Replies
10. Shell Programming and Scripting
Hi Folks
Need some help with this and my Perl isnt the hottest I also have text::csv installed on my perl install
The large text with a few million entries is in a format below
example text file
Fig Leafs
Cake No: 0000001
Author: King s.
Record No: 995-34343-232-232... (5 Replies)
Discussion started by: messiah1
5 Replies
LEARN ABOUT DEBIAN
perl::critic::policy::inputoutput::prohibittwoargopen
Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen(3pUser Contributed Perl DocumentatPerl::Critic::Policy::InputOutput::ProhibitTwoArgOpen(3pm)
NAME
Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen - Write "open $fh, q{<}, $filename;" instead of "open $fh, "<$filename";".
AFFILIATION
This Policy is part of the core Perl::Critic distribution.
DESCRIPTION
The three-argument form of "open" (introduced in Perl 5.6) prevents subtle bugs that occur when the filename starts with funny characters
like '>' or '<'. The IO::File module provides a nice object-oriented interface to filehandles, which I think is more elegant anyway.
open( $fh, '>output.txt' ); # not ok
open( $fh, q{>}, 'output.txt' ); # ok
use IO::File;
my $fh = IO::File->new( 'output.txt', q{>} ); # even better!
It's also more explicitly clear to define the input mode of the file, as in the difference between these two:
open( $fh, 'foo.txt' ); # BAD: Reader must think what default mode is
open( $fh, '<', 'foo.txt' ); # GOOD: Reader can see open mode
This policy will not complain if the file explicitly states that it is compatible with a version of perl prior to 5.6 via an include
statement, e.g. by having "require 5.005" in it.
CONFIGURATION
This Policy is not configurable except for the standard options.
NOTES
There are two cases in which you are forced to use the two-argument form of open. When re-opening STDIN, STDOUT, or STDERR, and when doing
a safe pipe open, as described in perlipc.
SEE ALSO
IO::Handle
IO::File
AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>
COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-06-07 Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen(3pm)