Hello Guy's
Quick question which im sure many can answer in seconds. Basically I have a perl script which is running commands to an element and then taking some of the
the output and printing it to the screen. One of the outputs is a variable Hex Number. What I would like to do is strip all the digits from this number apart from the
last 2 and then convert the last two digits to decimals.
I have taken some of the Script and printed below so you get an idea of what im doing.
As you can see in the first section $cid is pulled from the output and then essentially what I would like to do is edit the $cid only to take the last two digits
and then convert the the last two digits into decimal to be displayed in the print output at the end.
Guys I am new to this forum, this may seem like a cheeky request.
I have been asked by my manager to convert this ksh script to Perl. I do not have the foggiest about Perl and would appreciate any help on this.
Basically this scipt automates a recovery process for EMC Legato Networker. It will... (1 Reply)
Hi
Suppose I have a input.csv file like this
Fort, 2034440-3333
Honda, b293489289
Toyota, 23423000
How to convert the second column to the following format, there are only two cases:
a.if the last five character is a hyphen plus four numeric digit, keep the the last five digits... (6 Replies)
Good afternoon to you all
I really need your help
I have the following script developed in .sh and I need to convert it into perl. Can someone help me do it please?
Here´s the script:
##############################################
##############################################
... (3 Replies)
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Input file (a list of input file name with *.txt extension):
campus.com_icmp_ping_alive.txt
data_local_cd_httpd.txt
data_local_cd.txt
new_local_cd_mysql.txt
new_local_cd_nagios_content.txt
Desired output file:
data local_cd_httpd
data local_cd
new local_cd_mysql
new ... (9 Replies)
Hello,,I have a very small script that contains these lines; and it works perfectly; however I need to use Perl now as I will need to feel variables from a MySQL table into this; to it would be nice to start by converting this first...
find / -perm 777 \( -type f -o -type d \) -exec ls -lid {}... (1 Reply)
Hi,
I have a file nexus-1234 in a directory. I want to generate a random number and replace the 1234 with it and rename the file.
So nexus-1234 becomes nexus-2863 after running the script.
Any help is appreciated. Thanks in advance. (2 Replies)
Dear Team
We use DB2 v10.5 and using DBArtisan tool
Can someone please guide how to convert digits to binary numbers using db2 feature.
Ex> for number 9 , binary should be 1001 ( 8+1)
Any help appreciated. Thanks (2 Replies)
There is a python script that I would like converted to a perl script. If someone has the time to convert the script I would appreciate it. You can find the script below:
reboot-mb8600/reboot-mb8600.py at master . j4m3z0r/reboot-mb8600 . GitHub
#!/usr/bin/python
'''
A hacky script to... (1 Reply)
Hi All ,
I am having an input file as stated below
5728 U_TOP_LOGIC/U_CM0P/core/u_cortexm0plus/u_top/u_sys/u_core/r03_q_reg_20_/Q 011
611 U_TOP_LOGIC/U_CM0P/core/u_cortexm0plus/u_top/u_sys/u_core/r04_q_reg_20_/Q 011
3486... (4 Replies)
Discussion started by: kshitij
4 Replies
LEARN ABOUT DEBIAN
html::rewriteattributes
HTML::RewriteAttributes(3pm) User Contributed Perl Documentation HTML::RewriteAttributes(3pm)NAME
HTML::RewriteAttributes - concise attribute rewriting
SYNOPSIS
$html = HTML::RewriteAttributes->rewrite($html, sub {
my ($tag, $attr, $value) = @_;
# delete any attribute that mentions..
return if $value =~ /COBOL/i;
$value =~ s/rocks/rules/g;
return $value;
});
# writing some HTML email I see..
$html = HTML::RewriteAttributes::Resources->rewrite($html, sub {
my $uri = shift;
my $content = render_template($uri);
my $cid = generate_cid_from($content);
$mime->attach($cid => content);
return "cid:$cid";
});
# up for some HTML::ResolveLink?
$html = HTML::RewriteAttributes::Links->rewrite($html, "http://search.cpan.org");
# or perhaps HTML::LinkExtor?
HTML::RewriteAttributes::Links->rewrite($html, sub {
my ($tag, $attr, $value) = @_;
push @links, $value;
$value;
});
DESCRIPTION
"HTML::RewriteAttributes" is designed for simple yet powerful HTML attribute rewriting.
You simply specify a callback to run for each attribute and we do the rest for you.
This module is designed to be subclassable to make handling special cases eaiser. See the source for methods you can override.
METHODS
"new"
You don't need to call "new" explicitly - it's done in "rewrite". It takes no arguments.
"rewrite" HTML, callback -> HTML
This is the main interface of the module. You pass in some HTML and a callback, the callback is invoked potentially many times, and you get
back some similar HTML.
The callback receives as arguments the tag name, the attribute name, and the attribute value (though subclasses may override this --
HTML::RewriteAttributes::Resources does). Return "undef" to remove the attribute, or any other value to set the value of the attribute.
SEE ALSO
HTML::Parser, HTML::ResolveLink, Email::MIME::CreateHTML, HTML::LinkExtor
THANKS
Some code was inspired by, and tests borrowed from, Miyagawa's HTML::ResolveLink.
AUTHOR
Shawn M Moore, "<sartak@bestpractical.com>"
LICENSE
Copyright 2008-2010 Best Practical Solutions, LLC. HTML::RewriteAttributes is distributed under the same terms as Perl itself.
perl v5.10.1 2010-11-18 HTML::RewriteAttributes(3pm)