Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: [Perl] split on : but with extra challenge
Top Forums Shell Programming and Scripting [Perl] split on : but with extra challenge Post 302968943 by rdrtx1 on Wednesday 16th of March 2016 09:32:25 AM
Old 03-16-2016
try:
Code:
#!/usr/bin/perl -w #-d
use strict;

my $Line = "value1:{value2a:value2b}:value3:{}:value5:{value6a:value6b:value6c:value6d}";

my @atts = ($Line =~ /{[^:}]*:[^}]*}/g);
for (@atts) {my $v=$_; $v=~s/:/!=!/g; $Line=~s/$_/$v/;};

my @LineAttributes = split (/:/, $Line);
$Line="";
for (@LineAttributes) {s/!=!/:/g; $Line=$Line . $_ . ":"};
$Line=~s/:$//;

my $TotalLineAttributes = scalar @LineAttributes;

print "Line: $Line\n\n";
print "Total attributes: $TotalLineAttributes\n\n";

foreach my $Attribute (@LineAttributes) {
  print "Attribute: $Attribute\n";
}

This User Gave Thanks to rdrtx1 For This Post:
ejdv
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl split function

$mystring = "name:blk:house::"; print "$mystring\n"; @s_format = split(/:/, $mystring); for ($i=0; $i <= $#s_format; $i++) { print "index is $i,field is $s_format"; print "\n"; } $size = $#s_format + 1; print "total size of array is $size\n"; i am expecting my size to be 5, why is it... (5 Replies)
Discussion started by: new2ss
5 Replies

2. Shell Programming and Scripting

Use split function in perl

Hello, if i have file like this: 010000890306932455804 05306977653873 0520080417010520ISMS SMT ZZZZZZZZZZZZZOC30693599000 30971360000 ZZZZZZZZZZZZZZZZZZZZ202011302942311 010000890306946317387 05306977313623 0520080417010520ISMS SMT ZZZZZZZZZZZZZOC306942190000 30971360000... (5 Replies)
Discussion started by: chriss_58
5 Replies

3. Shell Programming and Scripting

PERL cgi script... extra character driving me crazy

I'm using a PERL cgi script that uses rrdtool to make graphs. I can't get the syntax correct to use a degree sign (alt+0176 like this °) and also using a variable. If I use single quotes, I can't call the variable. If I use double quotes, there is an extra symbol (Â) before the ° which goes... (2 Replies)
Discussion started by: audiophile
2 Replies

4. Shell Programming and Scripting

Perl split question

hi, I have a seemingly really stupid question, but here goes! What do you enter into split delimiter to seperate something like this "December 12, 1995" and get December 12 1995 ? thanks (5 Replies)
Discussion started by: ade214
5 Replies

5. Homework & Coursework Questions

PERL split function

Hi... I have a question regarding the split function in PERL. I have a very huge csv file (more than 80 million records). I need to extract a particular position(eg : 50th position) of each line from the csv file. I tried using split function. But I realized split takes a very long time. Also... (0 Replies)
Discussion started by: castle
0 Replies

6. Shell Programming and Scripting

Perl split, but ignoring extra delimiters

Hi all, I'm going bonkers trying to figure something out that is probably simple for most of you. I have a choice between getting therapy for this or coming here to ask for help. I chose the latter. :D What I'm trying to do is perform a split on a line but only one split. For example, let's... (4 Replies)
Discussion started by: goober
4 Replies

7. Shell Programming and Scripting

Regular Expression in Perl - very challenge

Hi expert, As we know in regular expression, means neither a nor b. Now the question is how to consider <ab> as a whole part or somehow a single char. Something like which is meaning neither ( nor a nor b nor ). Or do we have another way for this? The real requirement is as below: ... (2 Replies)
Discussion started by: summer_cherry
2 Replies

8. Shell Programming and Scripting

Split the string in perl

Hi All, How to split the string KAR_Celltick_Ban_GSMGW3 and want to pickup the third filed. Sometime the string may be "KAR_Celltick_Ban" like this Thanks in advance (1 Reply)
Discussion started by: sujit_kashyap
1 Replies

9. UNIX for Advanced & Expert Users

Interesting awk/Perl/sed parsing challenge

I have a log with entries like: out/target/product/imx53_smd/obj/STATIC_LIBRARIES/libwebcore_intermediates/Source/WebCore/bindings/V8HTMLVideoElement.cpp : target thumb C++: libwebcore <=... (8 Replies)
Discussion started by: glev2005
8 Replies

10. Shell Programming and Scripting

Perl split and array

Hello, I have the following code: while ($line = <fd_in>) { 126 $line = " " . $line ; 127 print "our_line:$line\n"; 128 @list = split (/\s+/, $line) ; 129 print "after_split:@list\n"; 130 print "$list\t$list\t$list\t$list\t$list\t$list$list\t\n"; 131 $len =... (2 Replies)
Discussion started by: Zam_1234
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)
All times are GMT -4. The time now is 08:23 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy