10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi folks,
I have a scenario to convert the update statements into insert statements using shell script (awk, sed...) or in database using regex.
I have a bunch of update statements with all columns in a file which I need to convert into insert statements.
UPDATE TABLE_A SET COL1=1 WHERE... (0 Replies)
Discussion started by: dev123
0 Replies
2. Shell Programming and Scripting
push @MACARRAY, "$+{catalog} $+{machine}\n" if ($info =~ /(?<catalog>catalog).+?(?<machine>\*+)/ms);
I am (still) trying to solve problem. Looking around on the server I found this piece of code. Specifically what does "$+{catalog} $+{machine}\n"
do ?
Thanks in advance (1 Reply)
Discussion started by: popeye
1 Replies
3. Shell Programming and Scripting
can someone help me how to interpret this line?
my ($class, $hashref) = @_;
my $portfolio = {};
if ($hashref->{portfolio_id}) {
($portfolio) = GEmySQL->get ("select * from portfolio where portfolio.id=$hashref->{portfolio_id}");
}
===============
Question: how do... (2 Replies)
Discussion started by: onlinelearner02
2 Replies
4. UNIX for Dummies Questions & Answers
Hi All,
I am writing a perl script where I take 2 variables from the user as STDIN to scan the lines of a file to produce as output.
How can I do an IF loop to test this for example in the mock file
12 10
35 20
37 5
45 12if I take user input as 40 and 10, how can I get the output lines in... (3 Replies)
Discussion started by: pawannoel
3 Replies
5. Shell Programming and Scripting
I'm just having a bit of trouble running this code. It tells me that there's a syntax error on line 29. Any help appreciated.
#!/usr/bin/perl
#
# Phone Book Application
#
%phonebook = (
"Wayne", '34687368',
"Home", '378643287',
"Work", '017374637',
"School",... (2 Replies)
Discussion started by: cabaiste
2 Replies
6. Shell Programming and Scripting
#!/usr/bin/perl
$output1 = "/home/log.txt"
$output2 = "/home/grep.txt"
#Statement1 creates an output file called log.txt.
#Statement2 greps a line from log.txt and store the result in grep.txt
I want to create a condition where if the file grep.txt is empty repeat process.
Thanks. (1 Reply)
Discussion started by: sureshcisco
1 Replies
7. Shell Programming and Scripting
Hello and thank you in advance.
I have a perl script that will basically copy files out of a directory , creat a new current date stamped dir and move them that current time stamped dir and append the file names with current time stamp.
I need to add line(s) that this is only run if FileX... (1 Reply)
Discussion started by: Dadwith2boys
1 Replies
8. Shell Programming and Scripting
if (($fields eq $hwp) && ($fields eq 'Y'))
{
$fields = "INTEGRAL";
}
elsif ($fields eq $hwp)
{
$fields = "INTEGRAL";
}
elsif ($fields ne $hwp)
{
$fields = "SEPARATE";
}
print "$fields $fields $fields\n";
Output:
The problem here is that the first... (2 Replies)
Discussion started by: kamitsin
2 Replies
9. Shell Programming and Scripting
Can someone help me out here. I can't get this piece of code to work. i.e. $ALL_EVENTS does not get interpreted in the if brackets. The first part is the code, the second part is the execution of the code. Note: $ALL_EVENTS does equal 2, but there is no value once passed to the if statement. ... (4 Replies)
Discussion started by: jwholey
4 Replies
10. Shell Programming and Scripting
Hello guys,
I was wondering why my code doesn't read a variable when using if statement as follows:
$userlist='users.txt';
$user='b999';
open (ACTULOG, ">>$userlist");
print ACTULOG "$user\n";
close (ACTULOG)
this will work and prints... (3 Replies)
Discussion started by: Bashar
3 Replies
Feature(3) User Contributed Perl Documentation Feature(3)
NAME
Gimp::Feature - check for specific features to be present before registering the script.
SYNOPSIS
use Gimp::Feature;
or
use Gimp::Feature qw(feature1 feature2 ...);
DESCRIPTION
This module can be used to check for specific features to be present. This can be used to deny running the script when neccessary features
are not present. While some features can be checked for at any time, the Gimp::Fu module offers a nicer way to check for them.
"gtk"
checks for the presence of the gtk interface module.
"gtk-1.1", "gtk-1.2"
checks for the presence of gtk-1.1 (1.2) or higher.
"perl-5.005"
checks for perl version 5.005 or higher.
"pdl"
checks for the presence of a suitable version of PDL (>=1.9906).
"gnome"
checks for the presence of the Gnome-Perl module.
"gtkxmhtl"
checks for the presence of the Gtk::XmHTML module.
"unix"
checks wether the script runs on a unix-like operating system. At the moment, this is every system except windows, macos, os2 and vms.
"persistency"
checks wether the "Gimp::Data" module (Gimp::Data) can handle complex persistent data structures, i.e. perl references in addition to
plain strings.
The following features can only be checked after "Gimp-"main> has been called (usually found in the form "exit main"). See Gimp::Fu on how
to check for these.
"gimp-1.1", "gimp-1.2"
checks for the presense of gimp in at least version 1.1 (1.2).
FUNCTIONS
present(feature)
Checks for the presense of the single feature given as the argument. Returns true if the feature is present, false otherwise.
need(feature,[function-name])
Require a specific feature. If the required feature is not present the program will exit gracefully, logging an appropriate message.
You can optionally supply a function name to further specify the place where this feature was missing.
This is the function used when importing symbols from the module.
missing(feature-description,[function-name])
Indicates that a generic feature (described by the first argument) is missing. A function name can further be specified. This function
will log the given message and exit gracefully.
describe(feature)
Returns a string describing the given feature in more detail, or undef if there is no description for this feature.
list()
Returns a list of features that can be checked for. This list might not be complete.
AUTHOR
Marc Lehmann <pcg@goof.com>
SEE ALSO
perl(1), Gimp(1).
perl v5.8.0 1999-11-22 Feature(3)
