08-24-2011
Afaik Perl does not know about backticks. If you want to execute system commands, system() function might be a better choice:
system - perldoc.perl.org
Perl is able to parse text with regular expressions too.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
dear friends,
I have a large size file containg two fields data
like this
*** ****
122 222
***** *****
***** *****
232 233
i have file like this.
i want to remove blank lines from file .
i think awk is servive this problem
i wrote a awk command but the error is... (3 Replies)
Discussion started by: rajan_ka1
3 Replies
2. Shell Programming and Scripting
Dear friends,
I am writing shell script in csh .
i want to make arthimatic operation in csh.
i wrote sysntax like this.
set val = 230
set tmp = `0.1 * $val + 300`
echo $tmp
but it is not working .
anyone please give me syntax. (3 Replies)
Discussion started by: rajan_ka1
3 Replies
3. Shell Programming and Scripting
Hi there
If i run this command on my Linux box directly, i get the desired result
# ipmitool fru | gawk '!NF{f=0}/mb.net0.fru/{f=1}/Product Serial/&&f{print $NF}'
00:AA:4F:A6:A6:C4
however, if i try to run it from a remote server (using SSH) and populating a variable with the result,... (5 Replies)
Discussion started by: hcclnoodles
5 Replies
4. Programming
Hey guys, i am having a problem in my query statement. I am using Mysql in Netbeans and c++.
What i am trying to do is for the user to enter a certain value and then the program will store the value into the database...
string NewMovie ;
Cout <<" Enter your new movie : " << endl ;
... (1 Reply)
Discussion started by: gregarion
1 Replies
5. Shell Programming and Scripting
Hi Guys,
When below code is executed in script, I get desired output in output file.
awk 'NR >= $start_line && NR <= 3' master_scriptlist.txt > $driver1/scriptlist.txtBut when i replace 3 with a variable end_line=3, I do not get ouput. See code below. Is there any problem with syntax
awk... (6 Replies)
Discussion started by: ajincoep
6 Replies
6. Shell Programming and Scripting
Hi,
Below is the code I am using. I am trying to list only those numbers which has a + symbol in it
cat num | awk -F"+" '{if (/^$/)
{
}
else
{if ( $0 ~ egrep "^+$" )
{
if ( $0 ~ grep "+" )
{print $0}
}
}}'
I am getting the following error:
awk: 0602-521 There is a... (7 Replies)
Discussion started by: sudvishw
7 Replies
7. Shell Programming and Scripting
Input file:
703
1192
720
1162
316
380
1810
439
1969
874
Desired output file:
3
3
awk code that I tried: (1 Reply)
Discussion started by: perl_beginner
1 Replies
8. Shell Programming and Scripting
I'm calling the following if-else from nawk. But I keep getting an error at the "else". I've tried putting more brackets and ; but still I get complaints about the "else".
Any ideas ?
Thanks,
wbrunc
BEGIN { FS = "," ; OFS = "," }
{ if ( $8 ~ /A/ && $9 == B )
$1="4/29/2013" ;
$2="J.Doe"... (2 Replies)
Discussion started by: wbrunc
2 Replies
9. Shell Programming and Scripting
Hi,
I am using this awk command in my shell script :
find . -name "*" -ctime -6 | xargs cat | grep -E -v ^fileName\|^\(\) | awk -v DATE="${CURR_DATE}" -v DATE_LOG=$DATE_SYS 'BEGIN {FS=";";OFS=";";CONVFMT="%.9g";OFMT="%.9g"}... (4 Replies)
Discussion started by: abhi1988sri
4 Replies
10. Shell Programming and Scripting
awk -v sw="lemons|dogs" 'NR>100 && NR<200 BEGIN { c=split(sw,a,""); } { for (w in a) { if ($0 ~ a) d]++; } }
END { for (i in a) { o=o (a"="(d]?d]:0)","); }
sub(",*$","",o); print o;
}' /home/jahitt/data.txt
what am i doing wrong with the above code? im pretty sure the issue is in the... (6 Replies)
Discussion started by: SkySmart
6 Replies
LEARN ABOUT DEBIAN
browser::open
Browser::Open(3pm) User Contributed Perl Documentation Browser::Open(3pm)
NAME
Browser::Open - open a browser in a given URL
VERSION
version 0.03
SYNOPSIS
use Browser::Open qw( open_browser );
### Try commands specific to the current Operating System
my $ok = open_browser($url);
# ! defined($ok): no recognized command found
# $ok == 0: command found and executed
# $ok != 0: command found, error while executing
### Try all known commands
my $ok = open_browser($url, 1);
DESCRIPTION
The functions optionaly exported by this module allows you to open URLs in the user browser.
A set of known commands per OS-name is tested for presence, and the first one found is executed. With an optional parameter, all known
commands are checked.
The "open_browser" uses the "system()" function to execute the command. If you want more control, you can get the command with the
"open_browser_cmd" or "open_browser_cmd_all" functions and then use whatever method you want to execute it.
API
All functions are not exported by default. You must ask for them explicitly.
open_browser
my $ok = open_browser($url, $all);
Find an appropriate command and executes it with your $url. If $all is false, the default, only commands that match the current OS will be
tested. If true, all known commands will be tested.
If no command was found, returns "undef".
If a command is found, returns the exit code of the execution attempt, 0 for success. See the "system()" for more information about this
exit code.
If no $url is given, an exception will be thrown: "Missing required parameter $url".
open_browser_cmd
my $cmd = open_browser_cmd();
Returns the best command found to open a URL on your system.
If no command was found, returns "undef".
open_browser_cmd_all
my $cmd = open_browser_cmd_all();
Returns the first command found to open a URL.
If no command was found, returns "undef".
AUTHOR
Pedro Melo, "<melo at cpan.org>"
COPYRIGHT & LICENSE
Copyright 2009 Pedro Melo.
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-03-09 Browser::Open(3pm)