gt; From: Gregory Machin
> > I'm debugging an application written in Perl that converse data exported
> > from the Nessus security scanner in xml format. I have narrowed down the
> > bug to an issue with special characters in names that are in the file
> such
> > a
Hi.
I'm debugging an application written in Perl that converse data exported
from the Nessus security scanner in xml format. I have narrowed down the
bug to an issue with special characters in names that are in the file such
as Frédéric and Grégoire , thus é are most likely the guilty parties.
Hi
Please can you advise ?
#!/usr/bin/perl
use Mysql;
$dbh = Mysql->connect("localhost","mailscanner","root","c0nc3pt") or
die ("Error " . Mysql->errno . " - " . Mysql->errstr);
$sql = "SELECT to_address FROM maillog LIMIT 10;";
$sth = $dbh->query($sql) or die ("Error " . Mysql->errno . " - " .
Thanks for the help .. knowing the anchor thing help me. if you not
sure what ur looking for or what it call you end up with the wrong
thing.
On Tue, Sep 15, 2009 at 10:21 AM, Tim Bowden wrote:
> On Tue, 2009-09-15 at 10:10 +0200, Gregory Machin wrote:
>> Any numbers, but only 3 digi
and 3 digits from the
phone number eg 011 .
So I only want the records that beginning and end in a number and
have exactly 3 digits not longer.
Thanks for you time.
G
On Tue, Sep 15, 2009 at 9:52 AM, Tim Bowden wrote:
> On Tue, 2009-09-15 at 09:30 +0200, Gregory Machin wrote:
>> Hi
Hi
I'm look for code example that will only select a string containing 3
digits .. The string cant be less than 3 digit , can't be more than 3
and can't contain any other characters.
I have googled and found code that will find 3 consecutive digits
within a string or at the beginning.
Any ideas
10
6 0 4 N/A N/A N/A N/A N/A N/A N/A
N/A N/A N/A N/A N/A N/A N/A N/A N/A N/A
N/A N/A N/A
On Mon, Aug 24, 2009 at 12:19 PM, Thomas Bätzler wrote:
> Hello Gregory,
>
> Gregory Machin
ot;([^"]+)\"\s)//g but it doesn't seem to work. I got it from a
website .. It looked correct .. mmm .. with regard to it's structure i
don't quite get ([^"]+) as I have tried replacing it with other
combinations and had less luck. I have also tried
s/\"([:word:])\"
Thanks will look into those .
On Tue, Sep 9, 2008 at 10:07 AM, Jeff Pang <[EMAIL PROTECTED]> wrote:
> 2008/9/9 Gregory Machin <[EMAIL PROTECTED]>:
>> Hi
>> I have a database with my servers details in .. I would like to write
>> a scripts to get the servers l
Hi
I have a database with my servers details in .. I would like to write
a scripts to get the servers log on info ssh to the box and get basic
info using the following
hostname
cat /etc/issue
cat /proc/cpuinfo | grep "model name"
cat /proc/meminfo | grep "MemTotal"
uname -s -r
squid -v
/usr/sbin/s
hi
I dont see why you couldnt just INSERT the value into a database ..
It's just the column type that may be the issue with mysql i would
suggest the blob or one of the text types
http://dev.mysql.com/doc/refman/5.0/en/blob.html ..
On Tue, Aug 5, 2008 at 1:02 PM, Oliver Block <[EMAIL PROTECTED
cripts, i have chowned them to the user squid, and
even chmod 0777 them, but no joy, yet they work fine if executed buy
root what have i missed ?
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTE
Chas Owens <[EMAIL PROTECTED]> wrote:
On 7/20/07, Gregory Machin <[EMAIL PROTECTED]> wrote:
> Hi
> I have a script that i'm working on, I want it to write info to a log
> file, but I can't get it to write to the file.. I run the script as
> root, and I also c
Hi
can you advise on the best way test if a usb modem is plugged in ?
I though about checking if the file/node /dev/ttyACM0 is present, as
it's created when the device is plugged in using open (TEST,
"/dev/tty/ACM0"); but just concecned if i do this while the device is
acitive it will cause it to
my $loop = 1;
while ($loop >= -1)
{
print STATUS_LOG localtime() . " sleeping\n";
sleep $mainloopsleep;
}
print STATUS_LOG localtime() . " ifwatch exiting";
close (STATUS_LOG);
}
1
;
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On 7/12/07, Chas Owens <[EMAIL PROTECTED]> wrote:
On 7/12/07, Gregory Machin <[EMAIL PROTECTED]> wrote:
> Hi
> I have a rusty memory of perl have the ability, where by you can load
> perl code into an variable / array then execute it on demand, anyone
> got an e
Hi
I have a rusty memory of perl have the ability, where by you can load
perl code into an variable / array then execute it on demand, anyone
got an example of how to do this ..
Many Thanks
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
and not found
./vpninfo.pl: line 2: syntax error near unexpected token `('
./vpninfo.pl: line 2: `$row =
~/(\w+)\,(\w+)\,(\d+\.\d+\.\d+\.\d+\:\d+)\,(\d+\.\d+\.\d+\.\d+)\,(\d+)\,(\d+)\,\,(\d+)/'
[EMAIL PROTECTED] ~]#
what have I missed ...
Many thanks
--
Gregory Machin
[EMAIL PR
put=$ARGV[0] to give the process name from the command
line, it runs as if the process is running if if I have stoped/killed
it..
the only reason for this is that there is a hidden character, but
where is it comming from ?
On 12/14/06, D. Bolliger <[EMAIL PROTECTED]> wrote:
Gregory Mach
$input=$ARGV[0]; #$input="httpd";
chomp $input;
open PROS, "ps -ef|grep $input |";
while ($line = ){
unless ($line =~ m/grep/){
print "$input is running\n";
exit;
}
}
print "$input isn't running\n";
exec "/etc/init.d/$input restart &";
t does not print the hello.
what have I missed ..
Many thanks for your time
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
if ( $row[ 0 ] =~ /$regex/ ) {
print < } else {
> print "Malformed Log Entry: $row[0]\n";
> }
> }
>
> undef $search;
> undef $dbh;
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts o
print("hour is $hour\n");
print("minute is $minute\n");
print("second is $second\n");
print("clientip is $clientip\n");
print("port is $port\n");
print("query is $qu
Hi
I need to remove all the quotation marks from, a string
I tried s/\'// but it did not work.
what have i missed ??
Many Thanks
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
AIL PROTECTED]> wrote:
Gregory Machin wrote:
> Hi
> I need to parse the logs for my named server. i'm having difficulty
getting
> my mind around the regex to break the data up .. i want the break it up
and
> store it in a data base then maniptulate the data from there ...
&
uot;
any ideas ?
Many thanks
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
Thanks for the lead ...
But my question was focused on the creation of a certifictate authority
mangment interface "using" cgi as aposed to comandline ... which is the norm
... I have a basic knowlage of perl cgi..
On 8/3/06, Gregory Machin <[EMAIL PROTECTED]> wrote:
Hi
I hav
Hi
I have to write a cgi appliction to manage a certificate authority for AES
256 CBC and 128 CBC ... How would I go about this the only application I
have used for this was comand lline interactive...
Any suggestions ..
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
thanks for the support guys .. have a grate day ..
On 7/31/06, Prabu <[EMAIL PROTECTED]> wrote:
Gregory Machin wrote:
> Hi
> My perl script is called by a bash script, used in a compile / build
env.
> But the bash script is not seeing my script's exit and is timming
Hi
My perl script is called by a bash script, used in a compile / build env.
But the bash script is not seeing my script's exit and is timming out and
continuing ...
How can I pass a standard exit code 0 = success 1 = fail to the operating
system / calling script.
Many Thanks
--
Gregory M
rated by a space
into an array
my $key = shift @array; gets the first value, of the array and
sets key to this value
$hash{$key} = [EMAIL PROTECTED] || 'nodefined'; ... sets the value of the
hash
to the array ??
}
>From: "Gregory Machin" <[EMAIL PROTE
alue) = split/\ /; to split the kay and the value ?
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
__END__
Run it and get the result output:
$ perl test.pl
$VAR1 = {
'PREFORK_CHILDS' => '5',
'IP' => '1.2.3.4',
'MIN_SPARE_CHILDS' => 'nodefined',
'PORT' => '80'
.pl
opening config file for processing
=>
dev => tun0
proto => tcp
remote => 192.168.1.1 1194
resolv-retry => infinite
=>
=>
=>
ca => ca.crt
cert => greg.crt
key => greg.key
cipher => AES-128-CBC
=>
verb => 3
=>
proto => tcp
cert => greg.crt
dev => tun0
ca => ca.crt
key => greg.key
remote => 192.168.1.1 1194
verb => 3
cipher => AES-128-CBC
resolv-retry => infinite
Many Thanks
Greg
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
persist_key} = $_; }
but I still end up with an empty field ...
Any ideas..
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
source code.. with menus and windows and popups
etc ...
Thanks
On 7/7/06, JupiterHost.Net <[EMAIL PROTECTED]> wrote:
Gregory Machin wrote:
> Hi
Hello,
> I'm looking for an perl ncuses tutorial so I can write a remote admin
> app to
> work via ssh ..
Not really a tutoria
Hi
I'm looking for an perl ncuses tutorial so I can write a remote admin app to
work via ssh ..
Many Thanks
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
37 matches
Mail list logo