Remove string between number and character

Top Forums UNIX for Beginners Questions & Answers Remove string between number and character

06-09-2017

Registered User

1,781, 705

Join Date: May 2008

Last Activity: 10 November 2021, 5:38 PM EST

Posts: 1,781

Thanks Given: 62

Thanked 705 Times in 653 Posts

Clean and show:

Code:

perl -nle '@p=/^(\d+).*?(?=DB)(.*)/ and print "@p"' example
35818 DB-3754
44412 DB-3747
54432 DB-3725
55522 DB-3755 DB-3721 DB-3361 DB-3327 DB-3688 DB-3750 DB-3677 DB-3728 DB-3730

Clean and convert:

Code:

perl -nle '($k,$v) = /^(\d+).*?(?=DB)(.*)/; for(split (/\s+/, $v)){print "$k $_"}' example
35818 DB-3754
44412 DB-3747
54432 DB-3725
55522 DB-3755
55522 DB-3721
55522 DB-3361
55522 DB-3327
55522 DB-3688
55522 DB-3750
55522 DB-3677
55522 DB-3728
55522 DB-3730

Aia

View Public Profile for Aia

Find all posts by Aia

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

gawk to remove last character in a line or string

I am outputting a line like this print $2 "/" $4The last character though is a ":" and I want to remove it. Is there any neat way to remove it? Or am I forced to do something like this: print $2 "/" substr($4, 1, length($4) - 1)Thanks.

2. Shell Programming and Scripting

Bash: How to remove the last character of a string?

In bash, how can one remove the last character of a string? In perl, the chop function would remove the last character. However, I do not know how to do the same job in bash. Many thanks in advance.

3. Shell Programming and Scripting

remove the first and last character of a string

How can i remove the first and last character of strings like below: "^^^613*" "admt130" "^^^613*" "123456" "adg8484" "DQitYV09dh1C" Means i wanna remove the quotes(""). Please help

4. Shell Programming and Scripting

remove all occurrences of a character at the beginning of a string

Hi there, i need some help to remove all occurrences of a certain character at the beginning of a string. Example: my string is 00102030 and i want to remove all zeros from beginning of string so the result is 102030

5. Shell Programming and Scripting

Sed is doing my head in! How do you remove the first character of a string?

Hello! Please bare with me, I'm a total newbie to scripting. Here's the sudo code of what I'm trying to do: Get file name Does file exist? If true get length of file name get network id (this will be the last 3 numbers of the file name) loop x 2 If...

6. Shell Programming and Scripting

How to remove last character in a string read from file

Hello, The last character is a comma , I have tried the following: sed -e 's/\,$//' filename-to-read however - there are still commas at the end of each line...:confused:

7. Shell Programming and Scripting

How to remove the first character on a string in a variable

Hi all, Does anyone know how to code in ksh that will remove the first character in a string variable and replace that variable without the first character? Example: var1=ktest1 will become var1=test1 var2=rtest2 will become var2=test2 Need help please.

8. Shell Programming and Scripting

shell script to remove the last character(.) of a string

hi I have a list of words in a text file. these words are appended by "." at their end. They look something like this. word1. word2. word3. word4. word5. I need to remove the last character "." from all the words. The output must look something like this. word1 word2 word3...

9. Shell Programming and Scripting

Remove box like special character from end of string

Hi All, How to remove a box like special character which appears at the end of a string/line/record. I have no clue what this box like special character is. It is transparent square like box. This appears in a .DAT file at the end of header. I'm to compare a value in header with a parameter....

10. Shell Programming and Scripting

Pulling the first and last character/number from a string.

Let's say I have a word "foobar23" in a file, and I want to pull the first "f" and last "3" character out of the world, how would I accomplish that? # cat file foobar23 I want the output to be: f3

LEARN ABOUT DEBIAN

graphics::primitive::component

Graphics::Primitive::Component(3pm)			User Contributed Perl Documentation		       Graphics::Primitive::Component(3pm)

NAME

       Graphics::Primitive::Component - Base graphical unit

DESCRIPTION

       A Component is an entity with a graphical representation.

SYNOPSIS

	 my $c = Graphics::Primitive::Component->new({
	   origin => Geometry::Primitive::Point->new({
	       x => $x, y => $y
	   }),
	   width => 500, height => 350
	 });

LIFECYCLE

       prepare
	   Most components do the majority of their setup in the prepare.  The goal of prepare is to establish it's minimum height and width so
	   that it can be properly positioned by a layout manager.

	     $driver->prepare($comp);

       layout
	   This is not a method of Component, but a phase introduced by the use of Layout::Manager.  If the component is a container then each of
	   it's child components (even the containers) will be positioned according to the minimum height and width determined during prepare.
	   Different layout manager implementations have different rules, so consult the documentation for each for details.  After this phase has
	   completed the origin, height and width should be set for all components.

	     $lm->do_layout($comp);

       finalize
	   This final phase provides and opportunity for the component to do any final changes to it's internals before being passed to a driver
	   for drawing.  An example might be a component that draws a fleuron at it's extremities.  Since the final height and width isn't known
	   until this phase, it was impossible for it to position these internal components until now.	It may even defer creation of this
	   components until now.

	   It is not ok to defer all action to the finalize phase.  If you do not establish a minimum hieght and width during prepare then the
	   layout manager may not provide you with enough space to draw.

	       $driver->finalize($comp);

       draw
	   Handled by Graphics::Primitive::Driver.

	      $driver->draw($comp);

METHODS

   Constructor
       new Creates a new Component.

   Instance Methods
       background_color
	   Set this component's background color.

       border
	   Set this component's border, which should be an instance of Border.

       callback
	   Optional callback that is fired at the beginning of the "finalize" phase.  This allows you to add some sort of custom code that can
	   modify the component just before it is rendered.  The only argument is the component itself.

	   Note that changing the position or the dimensions of the component will not re-layout the scene.  You may have weird results of you
	   manipulate the component's dimensions here.

       class
	   Set/Get this component's class, which is an abitrary string.  Graphics::Primitive has no internal use for this attribute but provides
	   it for outside use.

       color
	   Set this component's foreground color.

       fire_callback
	   Method to execute this component's "callback".

       get_tree
	   Get a tree for this component.  Since components are -- by definiton -- leaf nodes, this tree will only have the one member at it's
	   root.

       has_callback
	   Predicate that tells if this component has a "callback".

       height
	   Set this component's height.

       inside_bounding_box
	   Returns a Rectangle that defines the edges of the 'inside' box for this component.  This box is relative to the origin of the
	   component.

       inside_height
	   Get the height available in this container after taking away space for padding, margin and borders.

       inside_width
	   Get the width available in this container after taking away space for padding, margin and borders.

       margins
	   Set this component's margins, which should be an instance of Insets.  Margins are the space outside the component's bounding box, as in
	   CSS.  The margins should be outside the border.

       maximum_height
	   Set/Get this component's maximum height.  Used to inform a layout manager.

       maximum_width
	   Set/Get this component's maximum width.  Used to inform a layout manager.

       minimum_height
	   Set/Get this component's minimum height.  Used to inform a layout manager.

       minimum_inside_height
	   Get the minimum height available in this container after taking away space for padding, margin and borders.

       minimum_inside_width
	   Get the minimum width available in this container after taking away space for padding, margin and borders.

       minimum_width
	   Set/Get this component's minimum width.  Used to inform a layout manager.

       name
	   Set this component's name.  This is not required, but may inform consumers of a component.  Pay attention to that library's
	   documentation.

       origin
	   Set/Get the origin point for this component.

       outside_height
	   Get the height consumed by padding, margin and borders.

       outside_width
	   Get the width consumed by padding, margin and borders.

       finalize
	   Method provided to give component one last opportunity to put it's contents into the provided space.  Called after prepare.

       padding
	   Set this component's padding, which should be an instance of Insets.  Padding is the space inside the component's bounding box, as in
	   CSS.  This padding should be between the border and the component's content.

       page
	   If true then this component represents stand-alone page.  This informs the driver that this component (and any children) are to be
	   renderered on a single surface.  This only really makes sense in formats that have pages such as PDF of PostScript.

       prepare
	   Method to prepare this component for drawing.  This is an empty sub and is meant to be overridden by a specific implementation.

       preferred_height
	   Set/Get this component's preferred height.  Used to inform a layout manager.

       preferred_width
	   Set/Get this component's preferred width.  Used to inform a layout manager.

       to_string
	   Get a string representation of this component in the form of:

	     $name $x,$y ($widthx$height)

       visible
	   Set/Get this component's visible flag.

       width
	   Set/Get this component's width.

AUTHOR

       Cory Watson, "<gphat@cpan.org>"

BUGS

       Please report any bugs or feature requests to "bug-geometry-primitive at rt.cpan.org", or through the web interface at
       http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Geometry-Primitive <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Geometry-Primitive>.  I
       will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT &; LICENSE
       Copyright 2008-2009 by Cory G Watson.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.12.3							    2011-06-02				       Graphics::Primitive::Component(3pm)

UNIX for Beginners Questions & Answers