Sponsored Content
Top Forums Shell Programming and Scripting Changing file content in perl Post 302892160 by pravin27 on Tuesday 11th of March 2014 08:43:52 AM
Old 03-11-2014
Could this help you ?
Code:
perl -nle 'BEGIN{$count=0;$cnt=0} if(/#\<include file="CAT:PRIORITY:3.inc"\>/) { ++$count}
if(/#<include file="CAT:PRIORITY:10.inc">/) {s/#<include file="CAT:PRIORITY:10.inc">/#<include file="CAT:PRIORITY:3.inc">/;
++$cnt; }
print $_;
END { printf "count changed now - $cnt\nCount Already Changed - $count\n";}' filename

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Need help with changing bash to perl

Hi guys, I am converting a bash script to perl. I need lots of help and pointers on how to make the script work. Any help would be greatly appreciated. Here is what I have: #!/usr/bin/perl #Decrypt Files $dir = "/usr/bin/gpg; opendir(PGP_DIR, $dir) || die "can't opendir $dir: $!";... (3 Replies)
Discussion started by: freak
3 Replies

2. Shell Programming and Scripting

file content in an array PERL

Hello everybody, I'm new in this forum. I searched a long time for a solution for my problem but I didn't find the right thing. I have to read from a file (content is "abngjm" without any other signs) and have to write this content in an array. But every sign has to be called by its own... (5 Replies)
Discussion started by: e_prof
5 Replies

3. Shell Programming and Scripting

Perl search and replace file content.

I am not sure if this is doable. I am trying to open and print the content of the file by replacing all instances fo perl to PERL . This is my code but it is giving me the number count instead of the actual lines with changes. open (PERLHISTORY, 'sample.txt') or die "The file sample.txt could... (3 Replies)
Discussion started by: jxh461
3 Replies

4. UNIX for Dummies Questions & Answers

Changing file content based on file header

Hi, I have several text files each containing some data as shown below: File1.txt >DataHeader Data... Data... File2.txt >DataHeader Data... Data... etc. What I want is to change the 'DataHeader' based on the file name. So the output should look like: File1.txt >File1 ... (1 Reply)
Discussion started by: Fahmida
1 Replies

5. Shell Programming and Scripting

changing files content with sed or awk

Hi, Example File: (jumped, bumped, ) how to jumped, FROM tree; EXIT I have some hundreads of files like this with the different words and I want to remove the comma before the bracket and also I have to remove the comma before FROM word. I am trying to use this command : awk '... (5 Replies)
Discussion started by: rajshashi
5 Replies

6. Shell Programming and Scripting

Need Help!!! For changing the content of the line

I need to change the content of the line after I grep it. The line is : Date SNWD.I-1 (in) WTEQ.I-1 (in) PREC.I-1 (in) TOBS.I-1 (degC) TMAX.D-1 (degC) TMIN.D-1 (degC) TAVG.D-1 (degC) I want to change the second column (SNWD.I-1(in)) to SNWD.I-1(m), how could I do that? I use csh... (2 Replies)
Discussion started by: handsonzhao
2 Replies

7. Shell Programming and Scripting

perl extract content of file

I'm using Mail::Internet module, which will basically filter through email content and extract the body of the message my perl script to extract the body of the email #!/usr/bin/perl -w use Mail::Internet; @lines = <STDIN>; $mi_obj = new Mail::Internet(); ... (2 Replies)
Discussion started by: amlife
2 Replies

8. Shell Programming and Scripting

Sed: replace content from file with the content from file

Hi, I am having trouble while using 'sed' with reading files. Please help. I have 3 files. File A, file B and file C. I want to find content of file B in file A and replace it by content in file C. Thanks a lot!! Here is a sample of my question. e.g. (file A: a.txt; file B: b.txt; file... (3 Replies)
Discussion started by: dirkaulo
3 Replies

9. Shell Programming and Scripting

Perl SCript to read file content (if else statemenet)

Hi All, I wanted to write a perl script to read the content in a file,the file content is either 0 (zero) OR 1. The idea is like this. If (content =1), then it will proceed to perform some step. and then update the file content to 0(zero) else if (content =0), it will update the content to... (11 Replies)
Discussion started by: hploh
11 Replies

10. Shell Programming and Scripting

How to remove exisiting file content from a file and have to append new file content?

hi all, i had the below script x=`cat input.txt |wc -1` awk 'NR>1 && NR<'$x' ' input.txt > output.txt by using above script i am able to remove the head and tail part from the input file and able to append the output to the output.txt but if i run it for second time the output is... (2 Replies)
Discussion started by: hemanthsaikumar
2 Replies
install::TempContent::Objects::mod_perl-2.0.9::docs::apiUseraContriinstall::TempContent::Objects::mod_perl-2.0.9::docs::api::Apache2::RequestIO(3)

NAME
Apache2::RequestIO - Perl API for Apache request record IO Synopsis use Apache2::RequestIO (); $rc = $r->discard_request_body(); $r->print("foo", "bar"); $r->puts("foo", "bar"); # same as print, but no flushing $r->printf("%s $d", "foo", 5); $r->read($buffer, $len); $r->rflush(); $r->sendfile($filename); $r->write("foobartarcar", 3, 5); Description "Apache2::RequestIO" provides the API to perform IO on the Apache request object. API
"Apache2::RequestIO" provides the following functions and/or methods: "discard_request_body" In HTTP/1.1, any method can have a body. However, most GET handlers wouldn't know what to do with a request body if they received one. This helper routine tests for and reads any message body in the request, simply discarding whatever it receives. We need to do this because failing to read the request body would cause it to be interpreted as the next request on a persistent connection. $rc = $r->discard_request_body(); obj: $r ( "Apache2::RequestRec object" ) The current request ret: $rc ( integer ) "APR::Const status constant" if request is malformed, "Apache2::Const::OK" otherwise. since: 2.0.00 Since we return an error status if the request is malformed, this routine should be called at the beginning of a no-body handler, e.g., use Apache2::Const -compile => qw(OK); $rc = $r->discard_request_body; return $rc if $rc != Apache2::Const::OK; "print" Send data to the client. $cnt = $r->print(@msg); obj: $r ( "Apache2::RequestRec object" ) arg1: @msg ( ARRAY ) Data to send ret: $cnt ( number ) How many bytes were sent (or buffered). If zero bytes were sent, "print" will return 0E0, or "zero but true," which will still evaluate to 0 in a numerical context. excpt: "APR::Error" since: 2.0.00 The data is flushed only if STDOUT stream's $| is true. Otherwise it's buffered up to the size of the buffer, flushing only excessive data. "printf" Format and send data to the client (same as "printf"). $cnt = $r->printf($format, @args); obj: $r ( "Apache2::RequestRec object" ) arg1: $format ( string ) Format string, as in the Perl core "printf" function. arg2: @args ( ARRAY ) Arguments to be formatted, as in the Perl core "printf" function. ret: $cnt ( number ) How many bytes were sent (or buffered) excpt: "APR::Error" since: 2.0.00 The data is flushed only if STDOUT stream's $| is true. Otherwise it's buffered up to the size of the buffer, flushing only excessive data. "puts" Send data to the client $cnt = $r->puts(@msg); obj: $r ( "Apache2::RequestRec object" ) arg1: @msg ( ARRAY ) Data to send ret: $cnt ( number ) How many bytes were sent (or buffered) excpt: "APR::Error" since: 2.0.00 "puts()" is similar to "print()", but it won't attempt to flush data, no matter what the value of STDOUT stream's $| is. Therefore assuming that STDOUT stream's $| is true, this method should be a tiny bit faster than "print()", especially if small strings are printed. "read" Read data from the client. $cnt = $r->read($buffer, $len); $cnt = $r->read($buffer, $len, $offset); obj: $r ( "Apache2::RequestRec object" ) arg1: $buffer ( SCALAR ) The buffer to populate with the read data arg2: $len ( number ) How many bytes to attempt to read opt arg3: $offset ( number ) If a non-zero $offset is specified, the read data will be placed at that offset in the $buffer. META: negative offset and padding are not supported at the moment ret: $cnt ( number ) How many characters were actually read excpt: "APR::Error" since: 2.0.00 This method shares a lot of similarities with the Perl core "read()" function. The main difference in the error handling, which is done via "APR::Error exceptions" "rflush" Flush any buffered data to the client. $r->rflush(); obj: $r ( "Apache2::RequestRec object" ) ret: no return value since: 2.0.00 Unless STDOUT stream's $| is false, data sent via "$r->print()" is buffered. This method flushes that data to the client. "sendfile" Send a file or a part of it $rc = $r->sendfile($filename); $rc = $r->sendfile($filename, $offset); $rc = $r->sendfile($filename, $offset, $len); obj: $r ( "Apache2::RequestRec object" ) arg1: $filename ( string ) The full path to the file (using "/" on all systems) opt arg2: $offset ( integer ) Offset into the file to start sending. No offset is used if $offset is not specified. opt arg3: $len ( integer ) How many bytes to send. If not specified the whole file is sent (or a part of it, if $offset if specified) ret: $rc ( "APR::Const status constant" ) On success, "APR::Const::SUCCESS" is returned. In case of a failure -- a failure code is returned, in which case normally it should be returned to the caller. excpt: "APR::Error" Exceptions are thrown only when this function is called in the VOID context. So if you don't want to handle the errors, just don't ask for a return value and the function will handle all the errors on its own. since: 2.0.00 "write" Send partial string to the client $cnt = $r->write($buffer); $cnt = $r->write($buffer, $len); $cnt = $r->write($buffer, $len, $offset); obj: $r ( "Apache2::RequestRec object" ) arg1: $buffer ( SCALAR ) The string with data opt arg2: $len ( SCALAR ) How many bytes to send. If not specified, or -1 is specified, all the data in $buffer (or starting from $offset) will be sent. opt arg3: $offset ( number ) Offset into the $buffer string. ret: $cnt ( number ) How many bytes were sent (or buffered) excpt: "APR::Error" since: 2.0.00 Examples: Assuming that we have a string: $string = "123456789"; Then: $r->write($string); sends: 123456789 Whereas: $r->write($string, 3); sends: 123 And: $r->write($string, 3, 5); sends: 678 Finally: $r->write($string, -1, 5); sends: 6789 TIE Interface The TIE interface implementation. This interface is used for HTTP request handlers, when running under "SetHandler perl-script" and Perl doesn't have perlio enabled. See the perltie manpage for more information. "BINMODE" since: 2.0.00 NoOP See the binmode Perl entry in the perlfunc manpage "CLOSE" since: 2.0.00 NoOP See the close Perl entry in the perlfunc manpage "FILENO" since: 2.0.00 See the fileno Perl entry in the perlfunc manpage "GETC" since: 2.0.00 See the getc Perl entry in the perlfunc manpage "OPEN" since: 2.0.00 See the open Perl entry in the perlfunc manpage "PRINT" since: 2.0.00 See the print Perl entry in the perlfunc manpage "PRINTF" since: 2.0.00 See the printf Perl entry in the perlfunc manpage "READ" since: 2.0.00 See the read Perl entry in the perlfunc manpage "TIEHANDLE" since: 2.0.00 See the tie Perl entry in the perlfunc manpage "UNTIE" since: 2.0.00 NoOP See the untie Perl entry in the perlfunc manpage "WRITE" since: 2.0.00 See the write Perl entry in the perlfunc manpage Deprecated API The following methods are deprecated, Apache plans to remove those in the future, therefore avoid using them. "get_client_block" This method is deprecated since the C implementation is buggy and we don't want you to use it at all. Instead use the plain "$r->read()". "setup_client_block" This method is deprecated since "$r->get_client_block" is deprecated. "should_client_block" This method is deprecated since "$r->get_client_block" is deprecated. See Also mod_perl 2.0 documentation. Copyright mod_perl 2.0 and its core modules are copyrighted under The Apache Software License, Version 2.0. Authors The mod_perl development team and numerous contributors. perl v5.18.2 install::TempContent::Objects::mod_perl-2.0.9::docs::api::Apache2::RequestIO(3)
All times are GMT -4. The time now is 01:53 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy