|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
add to first line of file using perl
Post 302095393 by kingdbag on Monday 6th of November 2006 04:00:47 PM
11-06-2006
EXAMPLE: In case anyone needs to do something similar here is what I made. I will go back and change some var names so its more readable but you get the idea. I'd still like to know how to write to the first line of the file without having to make a duplicate using perl. If any one knows that be cool please post.
$ cat insertline.pl
#!/usr/local/bin/perl
#Dir where all host files are kept.
$dir1 = '/export/home/joe/scripts/testfiles/';
$dir2 = '/export/home/joe/scripts/testfiles/finalchanges/';
#Pull all files in dir to array.
opendir(DIR1, "$dir1") || die("Cannot open directory");
@dir1 = readdir(DIR1);
closedir(DIR1);
for $file(<@dir1>) {
if ($file =~ /insertline\.(.*$)/) {
$addtofile = uc("!$1\n");
$modfile1 = "$dir1$file";
$modfile2 = "$dir2$file";
open(FILE1, "$modfile1") || die("Cannot open file");
open(FILE2, ">$modfile2") || die("Cannot open file");
print FILE2 "$addtofile";
@copy_this = <FILE1>;
print FILE2 (@copy_this);
close (FILE1);
close (FILE2);
}
}
exit (0);
I guess I could dump thee current text file to an array like this and just write over the existing file instead of making a second file. I thought there was a cleaner way of doing it but whatever haha
$ cat insertline.pl
#!/usr/local/bin/perl
#Dir where all host files are kept.
$dir1 = '/export/home/joe/scripts/testfiles/';
$dir2 = '/export/home/joe/scripts/testfiles/finalchanges/';
#Pull all files in dir to array.
opendir(DIR1, "$dir1") || die("Cannot open directory");
@dir1 = readdir(DIR1);
closedir(DIR1);
for $file(<@dir1>) {
if ($file =~ /insertline\.(.*$)/) {
$addtofile = uc("!$1\n");
$modfile1 = "$dir1$file";
$modfile2 = "$dir2$file";
open(FILE1, "$modfile1") || die("Cannot open file");
open(FILE2, ">$modfile2") || die("Cannot open file");
print FILE2 "$addtofile";
@copy_this = <FILE1>;
print FILE2 (@copy_this);
close (FILE1);
close (FILE2);
}
}
exit (0);
I guess I could dump thee current text file to an array like this and just write over the existing file instead of making a second file. I thought there was a cleaner way of doing it but whatever haha
Last edited by kingdbag; 11-07-2006 at 03:15 PM..
|
|
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi all
need a perl script to add a line into a file
thanks with anticipation (2 Replies)
Discussion started by: karthikn7974
2 Replies
2. Shell Programming and Scripting
Unix box server version
***********
>uname -r
B.11.00
>echo $SHELL
/usr/bin/ksh
--> in this server, I have the path like /IMbuild/dev/im0serv1
---> in that directory I have the folders startup(.jsp files nearly 100 jsp's ) and scripts(contains .js files nearly 100 files) ... (9 Replies)
Discussion started by: pasam
9 Replies
3. Shell Programming and Scripting
Hi all,
I want to search for a line in a file using perl script and add a line above that line.Can any one suggest me command or code to that using script.
Thanks BHarath (5 Replies)
Discussion started by: bharathece
5 Replies
4. Programming
Hi All
I need to add a line to a file but after a certain block of text is found
The block of text looks like this
<RDF:Description RDF:about="urn:mimetype:video/quicktime"
NC:value="video/quicktime"
and i need to add this in the next line down ( note there is... (4 Replies)
Discussion started by: ab52
4 Replies
5. Shell Programming and Scripting
Hi,
I want to achieve something similar to what described in another post:
The difference is I want to add the line if the pattern is not found.
File 1:
A123, valueA, valueB
B234, valueA, valueB
C345, valueA, valueB
D456, valueA, valueB
E567, valueA, valueB
F678, valueA, valueB
... (11 Replies)
Discussion started by: jyu3
11 Replies
6. Shell Programming and Scripting
Hi All,
I find the below code printing the output of a particular field in same line, which i want it to be printed on a new line.
---CODE START---
foreach $defectRec (@outLs) {
my($def_id,$status,$files_mod) = split(/,/, $defectRec);
print "DEFECT ID: $def_id, Status:... (3 Replies)
Discussion started by: nmattam
3 Replies
7. Shell Programming and Scripting
Hi, i want to add a line at the beginning of every file in a directory.
perl -i.bkp -p -e 'print "#include /verif/pdd1/exu/sxs/6sTest/reset/dfu/top_level.reset\n" if $. == 1' *.reset
But this command is updating only the first file in the directory. I think this is because $. is not resetting... (3 Replies)
Discussion started by: twistedpair
3 Replies
8. Shell Programming and Scripting
I am trying to add a condition to the below perl that will capture the GTtag and place a specific string in the last field of each line. The problem is that the GT value used is not right after the tag rather it is a few fields away. The values should always be 0/1 or 1/2 and are in bold in the... (12 Replies)
Discussion started by: cmccabe
12 Replies
9. Shell Programming and Scripting
In the below perl code I am using tags within each line to extract certain information. The tags that are used are:
STB >0.8 is STRAND BIAS otherwise GOOD
FDP is the second number
GO towards the end of the line is read into an array and the value returned is outputed, in the first line that... (1 Reply)
Discussion started by: cmccabe
1 Replies
10. Shell Programming and Scripting
I am looking for help in processing of those options: '-n' or '-p'
I understand what they do and how to use them.
But, I would like to use them with more than one file (and without any shell-loop; loading the 'perl' once.)
I did try it and -n works on 2 files.
Question is:
- is it possible to... (6 Replies)
Discussion started by: alex_5161
6 Replies
LEARN ABOUT OSX
tklib_history
history(n) Provides a history for Entry widgets history(n) __________________________________________________________________________________________________________________________________________________ NAME
history - Provides a history for Entry widgets SYNOPSIS
package require Tcl 8.4 package require Tk 8.4 package require history ?0.1? ::history::init pathName ?length? ::history::remove pathName ::history::add pathName text ::history::get pathName ::history::clear pathName ::history::configure pathName option ?value? bell _________________________________________________________________ DESCRIPTION
This package provides a convenient history mechanism for Entry widgets. The history may be accessed with the up and down arrow keys. ::history::init pathName ?length? Arranges to remember the history of the named Entry widget. An optional length determines the number of history entries to keep. This may be changed later with ::history::configure. History entries must be added with the ::history::add command before they can be seen. ::history::remove pathName Forgets all history entries for the Entry pathName and removes the history bindings. ::history::add pathName text This command is used to add history entries to an Entry that has previously had ::history::init called on it. This command should be called from your Entry handler with the contents of the entry (or whatever you wish to add to the history). ::history::get pathName This command returns a list containing the history entries for the Entry pathName ::history::clear pathName This command clears the history list for the named Entry. ::history::configure pathName option ?value? This command queries or sets configuration options. Currently the options recognized are length and alert. Setting the length deter- mines the number of history entries to keep for the named Entry. Alert specifies the command to run when the user reaches the end of the history, it defaults to bell entry .e bind .e <Return> [list ProcessEntry %W] ::history::init .e pack .e proc ProcessEntry {w} { set text [$w get] if {$text == ""} { return } ::history::add $w $text puts $text $w delete 0 end } KEYWORDS
entry, history history 0.1 history(n)