Are you insisting in PERL? Because in fact this is a simple operation and to use PERL for this is probably overkill of the extreme sort. The following solution is sed and will do the job:
I assumed the variable "$DATE" here, which is part of my environment, because i like to have date-coded backup files if i let something change via a script. If you don't have such a variable either create one before or even dump the command altogether if you don't need a backup copy.
Replace "<spc>" and "<tab>" with literal spaces/tabs. If you have more than one line to comment out just duplicate the line and change the path accordingly. The "&" in the replacement part means "everything matched by the regexp before":
Hello,
I have a file as follow
a
b
c
c
d
d
e
I would like to write a awk command to insert # from the first occurence of
"c" to the end of the files.
OUTPUT should be like this
a
b
#c (5 Replies)
I need a perl substitution to remove only the comment in the line . That line may have '#' with in double quotes .I used the following ,
s/(^.*\".+?#.+?\".+?)(#.*)/$1/g
It works for ,
print " not a comment # not a comment " . "not a comment # not a comment" ; # It is a comment
... (3 Replies)
I have a working directory on a server with over 100 INI files. For the most part, they are configured the same way. Each line will contain 1 or none variables listed from the first character in the line such as VariableName=0.
Unfortunately there are comments everywhere using the... (4 Replies)
I want to find out which files under /etc have the the following section:
and then i would like to comment out the above section in all the files.
Please help. (3 Replies)
Legends,
Can you please help me in following.
I need to comment lines from “/tmp/a.txt” from the line A to line B through the command prompt only.
Please use variables not direct values like 2 or 5
It can be done with VI editor but it's not matches with my requirement (: 2,5 s/^/#/g).
... (1 Reply)
Platform : RHEL 5.4
I have several .sql files in a directory. I want to comment lines 10 to 25 for all .sql files.
How can I do this ?
The symbol for comment in SQL is --
eg:
-- select salary from emp where empname = 'URS' ; (3 Replies)
Greetings fellow scripters.
I find myself editing multiple files, sometimes with the same bits of information. My bash script, a changelog, and a plist file (OS X). Once I realized this, I thought why not script part of this process (and so it begins). In any case, I've solved several of the... (1 Reply)
Hello,
I have a SAS code that predominantly has comments line and the real code like below and i want to remove ONLY THE COMMENTS from the code in the single line or spanned across multiple lines.
/********************************************************************
*** This Is a Comment... (4 Replies)
Jifty::Plugin::Comment::Notification::CommentPublished(3User Contributed Perl DocumentaJifty::Plugin::Comment::Notification::CommentPublished(3pm)NAME
Jifty::Plugin::Comment::Notification::CommentPublished - new comments made
SYNOPSIS
To activate this notification, you must override the notification in your application.
use strict;
use warnings;
package MyApp::Notification::CommentPublished;
use base qw/ Jifty::Plugin::Comment::Notification::CommentPublished /;
sub setup {
my $self = shift;
# Send to the author of the post
$self->to_list($self->parent->author);
$self->SUPER::setup(@_);
}
sub url {
my $self = shift;
return Jifty->config->framework('Web')->{'BaseURL'}
. $self->parent->permalink
. '#comment-'.$self->comment->id;
}
1;
DESCRIPTION
This notification (when properly configured) is sent out to any who need to know when a comment has been published.
METHODS
setup
This method sets up the notification. This method should be overridden to setup "to_list" in Jifty::Notification to select who will receive
this message. See the "SYNOPSIS".
comment
This will contain the Jifty::Plugin::Comment::Model::Comment that has been published.
parent
This will contain the object that the comment has been attached to.
url
This returns the URL that the message will link to. This should be overridden to provide application-specific URLs. The default
implementation returns the BaseURL setting for the application.
SEE ALSO
Jifty::Notification, Jifty::Plugin::Comment::Notification::CommentNeedsModeration
AUTHOR
Andrew Sterling Hanenkamp, "<hanenkamp@cpan.org>"
COPYRIGHT AND LICENSE
Copyright 2008 Boomer Consulting, Inc. All Rights Reserved.
This program is free software and may be modified and distributed under the same terms as Perl itself.
perl v5.12.4 2009-03-09 Jifty::Plugin::Comment::Notification::CommentPublished(3pm)