Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

chop from front and back

by torres09 (Acolyte)
on Jun 21, 2013 at 06:14 UTC ( [id://1040079]=perlquestion: print w/replies, xml ) Need Help??

torres09 has asked for the wisdom of the Perl Monks concerning the following question:

hey

I have two array cells one starting with " say like "abc and other ending with " say like def" . so when I print them together it prints like "abcdef" . but I want to print it as abcdef , how can I do it

Replies are listed 'Best First'.
Re: chop from front and back
by moritz (Cardinal) on Jun 21, 2013 at 06:31 UTC
Re: chop from front and back
by hdb (Monsignor) on Jun 21, 2013 at 06:34 UTC

    s/"//g will remove all " from your string, s/^"|"$//g; only the ones at the beginning and the end of the string.

Re: chop from front and back
by kcott (Archbishop) on Jun 21, 2013 at 07:25 UTC

    G'day torres09,

    Something like this:

    $ perl -Mstrict -Mwarnings -le ' my $x = q{"abc}; my $y = q{def"}; print substr $x . $y, 1, -1; ' abcdef

    -- Ken

      what if I wish to print it as abc,def

        print substr "$x,$y", 1, -1;
        لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
Re: chop from front and back
by space_monk (Chaplain) on Jun 21, 2013 at 08:21 UTC
    #!/usr/bin/perl # this is long just to be readable # some clever Monks will no doubt show shorter methods... # Monks get stroppy if you don't use these... :-) use strict; use warnings; # Perl developers best friend.... use Data:Dumper; # array we want to process... my @array = qw( "abc def" ); # print array to show it contains the two elements... print "Array:".Dumper( \@array)."\n"; # join your array together... my $str = join( '', @array); # remove anything you don't want in the string... # this removes all quotes, but you can change it # to just start and end $str =~ s/['"]//g; # ...or $str =~ tr/'"//; # output result.... print $str;
    If you spot any bugs in my solutions, it's because I've deliberately left them in as an exercise for the reader! :-)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://1040079]
Approved by moritz
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2024-04-19 07:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found