06-01-2009
Thanks a lot for ur replies. But I have one more doubt.
Are the #'s being used as delimiters here? If so then what is the purpose of ## at the end of it all?
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
hi,
i got a problem with understanding regular expressions. what i wanna do is
scanning the wtmp logfile for ips and if a specific ip is echoed id like to be a part of a text to be assigned to it.
the scanning is done with
#! /bin/bash
cat wtmp | strings | egrep -o "+\.+\.+\." | sort -u... (6 Replies)
Discussion started by: rocketkids
6 Replies
2. Shell Programming and Scripting
I have the following code:
#!/usr/bin/perl -w
@files = <*.csv>;
foreach $file (@files) {
open(FH, $file) || die("Error: Cannot open file $file for reading.");
my @dt = ($file =~ /^(\w+).(\d{6})\.csv$/);
while (<FH>) {
print "@dt $_\n";
}
close(FH);
}
There is redundancy... (10 Replies)
Discussion started by: figaro
10 Replies
3. Shell Programming and Scripting
Hi
I have a question on regex
There is a line in a script like
my_file="$(echo SunMonTueWed | sed "s//_&g") "
My question what does the expression _&g do.
Obviously in this example the output is
_Sun_Mon_Tue_Wed
Another question can i use some trick to get the result like... (3 Replies)
Discussion started by: xiamin
3 Replies
4. Shell Programming and Scripting
Hi, im sure this is really simple but i cant quite figure it out. how do i test against a word at the beginning of the line but up to the point of a delimiter i.e. ":"
for example if i wanted to test against the user in the /etc/passwd file
peter:x:101:100:peters account:/var/peter:/bin/sh
... (3 Replies)
Discussion started by: hcclnoodles
3 Replies
5. Shell Programming and Scripting
Hello all
Is there a "not" reversal method for the =~ regex thingy in perl ?
for example, in the snippet below, i have placed a ! in front of the =~ to "not it".. although it quite obviously doesn't work and is just me trying to get across the question in a way that somebody may understand :o... (2 Replies)
Discussion started by: rethink
2 Replies
6. Shell Programming and Scripting
I have a basic question regarding * and . while using regex:
# echo 3 | grep ^*$
3
I think I understood why it outputs "3" here (because '*' matches zero or more of the previous character) but I don't understand the output of the following command:
# echo 3 | grep ^.$
#
I thought I... (7 Replies)
Discussion started by: mirage
7 Replies
7. Shell Programming and Scripting
I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly:
if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Discussion started by: suntzu
1 Replies
8. Shell Programming and Scripting
Hi I am trying to match lines having following string
BIND dn="uid=
putting something like this is not working :
/\sBIND dn="uid=/
Any suggestion.
Thanks. John (9 Replies)
Discussion started by: john_prince
9 Replies
9. Shell Programming and Scripting
Hi Guys,
I am trying to work out the regular expression that I would need to capture the below information. I need to find the word SAC followed by using the data thats contained on the next line. I have other expressions that i have configured but none are where the output is on two... (2 Replies)
Discussion started by: mutley2202
2 Replies
10. Shell Programming and Scripting
I am not a big expert in regex and have just little understanding of that language.
Could you help me to understand the regular Perl expression:
^(?!if\b|else\b|while\b|)(?:+?\s+){1,6}(+\s*)\(*\) *?(?:^*;?+){0,10}\{
------
This is regex to select functions from a C/C++ source and defined in... (2 Replies)
Discussion started by: alex_5161
2 Replies
LEARN ABOUT DEBIAN
imager::qrcode
Imager::QRCode(3pm) User Contributed Perl Documentation Imager::QRCode(3pm)
NAME
Imager::QRCode - Generate QR Code with Imager using libqrencode
SYNOPSIS
use Imager::QRCode;
my $qrcode = Imager::QRCode->new(
size => 2,
margin => 2,
version => 1,
level => 'M',
casesensitive => 1,
lightcolor => Imager::Color->new(255, 255, 255),
darkcolor => Imager::Color->new(0, 0, 0),
);
my $img = $qrcode->plot("blah blah");
$img->write(file => "qrcode.gif");
# or instance method
use Imager::QRCode qw(plot_qrcode);
my $img = plot_qrcode("blah blah", \%params);
$img->write(file => "qrcode.gif");
DESCRIPTION
This module allows you to generate QR Code with Imager. This module use libqrencode '2.0.0' and above.
METHODS
new
$qrcode = Imager::QRCode->new(%params);
The "new()" constructor method instantiates a new Imager::QRCode object. "new()" accepts the following parameters.
o "size" - Horizontal and vertical size of module(dot). Default is 4.
o "margin" - Margin size of QR Code. Default is 3.
o "level" - Error collectin level. Valid values are 'M', 'L', 'Q' or 'H'. Default is 'L'.
o "version" - Version of the symbol. If specify '0', this module chooses the minimum version for the input data. Default is '0'.
o "mode" - Encoding mode. Valid values are 'numerical', 'alpha-numerical', '8-bit' or 'kanji'. Default is '8-bit'.
If not give "casesensitive" then should be given "mode". If 'kanji' is given, characters will be encoded as Shift-JIS characters.
If '8-bit' is given, all of non-alpha-numerical characters will be encoded as is. If you want to embed UTF-8 string, choose
'8-bit'.
o "casesensitive" - If your application is case-sensitive using 8-bit characters, set to '1'. Default is '0'.
plot($text)
$img = $qrcode->plot("blah blah");
Create a new QR Code image. This method returns Imager object ploted QR Code with the given text.
INSTANT METHODS
plot_qrcode($text, \%params)
Instant method. $text is input text. %params is same parameter as "new()".
SEE ALSO
"Imager", "http://www.qrcode.com/", "http://megaui.net/fukuchi/works/qrencode/index.en.html"
AUTHOR
Yoshiki KURIHARA "<kurihara __at__ cpan.org>"
THANKS
Tokuhiro Matsuno
LICENCE AND COPYRIGHT
Copyright (c) 2011, Yoshiki KURIHARA "<kurihara __at__ cpan.org>".
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
perl v5.14.2 2012-12-16 Imager::QRCode(3pm)