Sponsored Content
Top Forums Shell Programming and Scripting grep for more than one pattern Post 92658 by frustrated1 on Tuesday 13th of December 2005 12:49:11 PM
Old 12-13-2005
Excellent - thank you very much! Smilie
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to grep this pattern??

Hi All, I have a file like this, from this file I want to grep only this "package com.att.com;".... even though spaces are present at starting of the line. i.e., the o/p should ignore these two lines from the file : asdasdasd package ; ignore this line asdasdasd adsfkl90-9-0 package... (13 Replies)
Discussion started by: askumarece
13 Replies

2. Shell Programming and Scripting

how to grep the pattern ?

how to grep the pattern ? How can I grep or find the pattern from this files in the directory. I have couple of ascii files too.I have to grep the binary files.Please assist me Thanks Francis (2 Replies)
Discussion started by: faviji
2 Replies

3. Shell Programming and Scripting

Want to grep for a pattern and display the content above that pattern

Hi, When we have a failure, sometimes we just step restart the job from the next step. Later when we open the log for analysis of the failure, it is becoming difficult to go to the failure part. For eg., if it is a 1000 line log, the failure may be at 500th line. so wat i want to do is, grep... (6 Replies)
Discussion started by: ajayakunuri
6 Replies

4. Emergency UNIX and Linux Support

Grep pattern

I have to search from millions of lines of code of lines having following pattern: get_token , get_token For example: fn1(string.get_token(), string1.get_token()); Thanks in advance (5 Replies)
Discussion started by: uunniixx
5 Replies

5. Shell Programming and Scripting

Grep the word from pattern line and update in subsequent lines till next pattern line reached

Hi, I have got the below requirement. please suggest. I have a file like, Processing Item is: /data/ing/cfg2/abc.txt /data/ing/cfg3/bgc.txt Processing Item is: /data/cmd/for2/ght.txt /data/kernal/config.klgt.txt I want to process the above file to get the output file like, ... (5 Replies)
Discussion started by: rbalaj16
5 Replies

6. Shell Programming and Scripting

How to Grep than scan line below grep pattern

Hello Colleagues, I have a file that looks like below. 6-12731913-12731913 9230760143480 410018547148230 20131002193434+0500 20131002193434+0500 ;20131002T161031000-10.50.241.21-21912131-1419034760, ver: 0 20131009 92220056296730 CC0P abc Core_Context_R1A SMS 6-12726796-12726796... (14 Replies)
Discussion started by: umarsatti
14 Replies

7. Shell Programming and Scripting

sed and awk usage to grep a pattern 1 and with reference to this grep a pattern 2 and pattern 3

Hi , I have a file where i have modifed certain things compared to original file . The difference of the original file and modified file is as follows. # diff mir_lex.c.modified mir_lex.c.orig 3209c3209 < if(yy_current_buffer -> yy_is_our_buffer == 0) { --- >... (5 Replies)
Discussion started by: breezevinay
5 Replies

8. Shell Programming and Scripting

Grep lines before a pattern having some other pattern

Hi All, I am trying to fetch lines before a pattern, I got to know about -B flag in grep but we have to pass the number to get those lines before some pattern say (X), now what if I want to get line/s with some other pattern say (Y) before X pattern? How to get about it? please help. Input:... (5 Replies)
Discussion started by: dips_ag
5 Replies

9. UNIX for Dummies Questions & Answers

Grep -v lines starting with pattern 1 and not matching pattern 2

Hi all! Thanks for taking the time to view this! I want to grep out all lines of a file that starts with pattern 1 but also does not match with the second pattern. Example: Drink a soda Eat a banana Eat multiple bananas Drink an apple juice Eat an apple Eat multiple apples I... (8 Replies)
Discussion started by: demmel
8 Replies

10. UNIX for Beginners Questions & Answers

Grep/awk using a begin search pattern and end search pattern

I have this fileA TEST FILE ABC this file contains ABC; TEST FILE DGHT this file contains DGHT; TEST FILE 123 this file contains ABC, this file contains DEF, this file contains XYZ, this file contains KLM ; I want to have a fileZ that has only (begin search pattern for will be... (2 Replies)
Discussion started by: vbabz
2 Replies
SVG::Manual(3pm)					User Contributed Perl Documentation					  SVG::Manual(3pm)

NAME
SVG - Perl extension for generating Scalable Vector Graphics (SVG) documents VERSION Covers SVG-2.51 distribution, 30 March 2012 SYNOPSIS
#!/usr/bin/perl -w use strict; use SVG; # create an SVG object my $svg= SVG->new(width=>200,height=>200); # use explicit element constructor to generate a group element my $y=$svg->group( id => 'group_y', style => { stroke=>'red', fill=>'green' } ); # add a circle to the group $y->circle(cx=>100, cy=>100, r=>50, id=>'circle_in_group_y'); # or, use the generic 'tag' method to generate a group element by name my $z=$svg->tag('g', id => 'group_z', style => { stroke => 'rgb(100,200,50)', fill => 'rgb(10,100,150)' } ); # create and add a circle using the generic 'tag' method $z->tag('circle', cx=>50, cy=>50, r=>100, id=>'circle_in_group_z'); # create an anchor on a rectangle within a group within the group z my $k = $z->anchor( id => 'anchor_k', -href => 'http://test.hackmare.com/', target => 'new_window_0' )->rectangle( x => 20, y => 50, width => 20, height => 30, rx => 10, ry => 5, id => 'rect_k_in_anchor_k_in_group_z' ); # now render the SVG object, implicitly use svg namespace print $svg->xmlify; # or render a child node of the SVG object without rendering the entire object print $k->xmlify; #renders the anchor $k above containing a rectangle, but does not #render any of the ancestor nodes of $k # or, explicitly use svg namespace and generate a document with its own DTD print $svg->xmlify(-namespace=>'svg'); # or, explicitly use svg namespace and generate an inline docunent print $svg->xmlify( -namespace => "svg", -pubid => "-//W3C//DTD SVG 1.0//EN", -inline => 1 ); DESCRIPTION
SVG is a 100% Perl module which generates a nested data structure containing the DOM representation of an SVG (Scalable Vector Graphics) image. Using SVG, you can generate SVG objects, embed other SVG instances into it, access the DOM object, create and access javascript, and generate SMIL animation content. General Steps to generating an SVG document Generating SVG is a simple three step process: 1 The first step is to construct a new SVG object with "new". 2 The second step is to call element constructors to create SVG elements. Examples of element constructors are "circle" and "path". 3 The third and last step is to render the SVG object into XML using the "xmlify" method. The "xmlify" method takes a number of optional arguments that control how SVG renders the object into XML, and in particular determine whether a standalone SVG document or an inline SVG document fragment is generated: -standalone A complete SVG document with its own associated DTD. A namespace for the SVG elements may be optionally specified. -inline An inline SVG document fragment with no DTD that be embedded within other XML content. As with standalone documents, an alternate namespace may be specified. No XML content is generated until the third step is reached. Up until this point, all constructed element definitions reside in a DOM-like data structure from which they can be accessed and modified. EXPORTS None. However, SVG permits both options and additional element methods to be specified in the import list. These options and elements are then available for all SVG instances that are created with the "new" constructor. For example, to change the indent string to two spaces per level: use SVG (-indent => " "); With the exception of -auto, all options may also be specified to the "new" constructor. The currently supported options and their default value are: # processing options -auto => 0, # permit arbitrary autoloading of all unrecognised elements -printerror => 1, # print error messages to STDERR -raiseerror => 1, # die on errors (implies -printerror) # rendering options -indent => " ", # what to indent with -elsep => " ", # element line (vertical) separator # (note that not all agents ignor trailing blanks) -nocredits => 0, # enable/disable credit note comment -namespace => '', # The root element's (and it's children's) namespace prefix # XML and Doctype declarations -inline => 0, # inline or stand alone -docroot => 'svg', # The document's root element -version => '1.0', -extension => '', -encoding => 'UTF-8', -xml_svg => 'http://www.w3.org/2000/svg', # the svg xmlns attribute -xml_xlink => 'http://www.w3.org/1999/xlink', # the svg tag xmlns:xlink attribute -standalone => 'yes', -pubid => "-//W3C//DTD SVG 1.0//EN", # formerly -identifier -sysid => 'http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd', # the system id SVG also allows additional element generation methods to be specified in the import list. For example to generate 'star' and 'planet' element methods: use SVG qw(star planet); or: use SVG ("star","planet"); This will add 'star' to the list of elements supported by SVG.pm (but not of course other SVG parsers...). Alternatively the '-auto' option will allow any unknown method call to generate an element of the same name: use SVG (-auto => 1, "star", "planet"); Any elements specified explicitly (as 'star' and 'planet' are here) are predeclared; other elements are defined as and when they are seen by Perl. Note that enabling '-auto' effectively disables compile-time syntax checking for valid method names. Example: use SVG ( -auto => 0, -indent => " ", -raiseerror => 0, -printerror => 1, "star", "planet", "moon" ); Default SVG tag The Default SVG tag will generate the following XML: $svg = SVG->new; print $svg->xmlify; Resulting XML snippet: <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd"> <svg height="100%" width="100%" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"> <!-- Generated using the Perl SVG Module V2.50 by Ronan Oger Info: http://www.roitsystems.com/ --> SEE ALSO
perl(1), SVG::XML, SVG::Element, SVG::DOM, SVG::Parser <http://www.roitsystems.com/>ROIT Systems: Commercial SVG perl solutions <http://www.w3c.org/Graphics/SVG/>SVG at the W3C AUTHOR
Ronan Oger, RO IT Systems GmbH, cpan@roitsystems.com CREDITS
Peter Wainwright, Excellent ideas, beta-testing, writing SVG::Parser and much of SVG::DOM. Fredo, http://www.penguin.at0.net/~fredo/ - provided example code and initial feedback for early SVG.pm versions and the idea of a simplified svg generator. Adam Schneider, Brial Pilpre, Ian Hickson Martin Owens - SVG::DOM improvements in version 3.34 EXAMPLES
See also the examples directory in this distribution which contain several fully documented examples. METHODS
SVG provides both explicit and generic element constructor methods. Explicit generators are generally (with a few exceptions) named for the element they generate. If a tag method is required for a tag containing hyphens, the method name replaces the hyphen with an underscore. ie: to generate tag <column-heading id="new"> you would use method $svg->column_heading(id=>'new'). All element constructors take a hash of element attributes and options; element attributes such as 'id' or 'border' are passed by name, while options for the method (such as the type of an element that supports multiple alternate forms) are passed preceded by a hyphen, e.g '-type'. Both types may be freely intermixed; see the "fe" method and code examples througout the documentation for more examples. new (constructor) $svg = SVG->new(%attributes) Creates a new SVG object. Attributes of the document SVG element be passed as an optional list of key value pairs. Additionally, SVG options (prefixed with a hyphen) may be set on a per object basis: Example: my $svg1 = SVG->new; my $svg2 = SVG->new(id => 'document_element'); my $svg3 = SVG->new(s -printerror => 1, -raiseerror => 0, -indent => ' ', -docroot => 'svg', #default document root element (SVG specification assumes svg). Defaults to 'svg' if undefined -sysid => 'abc', #optional system identifyer -pubid => "-//W3C//DTD SVG 1.0//EN", #public identifyer default value is "-//W3C//DTD SVG 1.0//EN" if undefined -namespace => 'mysvg', -inline => 1 id => 'document_element', width => 300, height => 200, ); Default SVG options may also be set in the import list. See "EXPORTS" above for more on the available options. Furthermore, the following options: -version -encoding -standalone -namespace Defines the document or element level namespace. The order of assignment priority is element,document . -inline -identifier -nostub -dtd (standalone) may also be set in xmlify, overriding any corresponding values set in the SVG->new declaration xmlify (alias: to_xml render serialise serialize) $string = $svg->xmlify(%attributes); Returns xml representation of svg document. XML Declaration Name Default Value -version '1.0' -encoding 'UTF-8' -standalone 'yes' -namespace 'svg' - namespace for elements -inline '0' - If '1', then this is an inline document. -pubid '-//W3C//DTD SVG 1.0//EN'; -dtd (standalone) 'http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd' tag (alias: element) $tag = $svg->tag($name, %attributes) Generic element generator. Creates the element named $name with the attributes specified in %attributes. This method is the basis of most of the explicit element generators. Example: my $tag = $svg->tag('g', transform=>'rotate(-45)'); anchor $tag = $svg->anchor(%attributes) Generate an anchor element. Anchors are put around objects to make them 'live' (i.e. clickable). It therefore requires a drawn object or group element as a child. Example: # generate an anchor $tag = $svg->anchor( -href=>'http://here.com/some/simpler/svg.svg' ); # add a circle to the anchor. The circle can be clicked on. $tag->circle(cx=>10,cy=>10,r=>1); # more complex anchor with both URL and target $tag = $svg->anchor( -href => 'http://somewhere.org/some/other/page.html', target => 'new_window' ); circle $tag = $svg->circle(%attributes) Draw a circle at (cx,cy) with radius r. Example: my $tag = $svg->circle(cx=>4, cy=>2, r=>1); ellipse $tag = $svg->ellipse(%attributes) Draw an ellipse at (cx,cy) with radii rx,ry. Example: my $tag = $svg->ellipse( cx=>10, cy=>10, rx=>5, ry=>7, id=>'ellipse', style=>{ 'stroke'=>'red', 'fill'=>'green', 'stroke-width'=>'4', 'stroke-opacity'=>'0.5', 'fill-opacity'=>'0.2' } ); rectangle (alias: rect) $tag = $svg->rectangle(%attributes) Draw a rectangle at (x,y) with width 'width' and height 'height' and side radii 'rx' and 'ry'. Example: $tag = $svg->rectangle( x=>10, y=>20, width=>4, height=>5, rx=>5.2, ry=>2.4, id=>'rect_1' ); image $tag = $svg->image(%attributes) Draw an image at (x,y) with width 'width' and height 'height' linked to image resource '-href'. See also "use". Example: $tag = $svg->image( x=>100, y=>100, width=>300, height=>200, '-href'=>"image.png", #may also embed SVG, e.g. "image.svg" id=>'image_1' ); Output: <image xlink:href="image.png" x="100" y="100" width="300" height="200"/> use $tag = $svg->use(%attributes) Retrieve the content from an entity within an SVG document and apply it at (x,y) with width 'width' and height 'height' linked to image resource '-href'. Example: $tag = $svg->use( x=>100, y=>100, width=>300, height=>200, '-href'=>"pic.svg#image_1", id=>'image_1' ); Output: <use xlink:href="pic.svg#image_1" x="100" y="100" width="300" height="200"/> According to the SVG specification, the 'use' element in SVG can point to a single element within an external SVG file. polygon $tag = $svg->polygon(%attributes) Draw an n-sided polygon with vertices at points defined by a string of the form 'x1,y1,x2,y2,x3,y3,... xy,yn'. The "get_path" method is provided as a convenience to generate a suitable string from coordinate data. Example: # a five-sided polygon my $xv = [0,2,4,5,1]; my $yv = [0,0,2,7,5]; $points = $a->get_path( x=>$xv, y=>$yv, -type=>'polygon' ); $c = $a->polygon( %$points, id=>'pgon1', style=>\%polygon_style ); SEE ALSO: "polyline", "path", "get_path". polyline $tag = $svg->polyline(%attributes) Draw an n-point polyline with points defined by a string of the form 'x1,y1,x2,y2,x3,y3,... xy,yn'. The "get_path" method is provided as a convenience to generate a suitable string from coordinate data. Example: # a 10-pointsaw-tooth pattern my $xv = [0,1,2,3,4,5,6,7,8,9]; my $yv = [0,1,0,1,0,1,0,1,0,1]; $points = $a->get_path( x=>$xv, y=>$yv, -type=>'polyline', -closed=>'true' #specify that the polyline is closed. ); my $tag = $a->polyline ( %$points, id=>'pline_1', style=>{ 'fill-opacity' => 0, 'stroke' => 'rgb(250,123,23)' } ); line $tag = $svg->line(%attributes) Draw a straight line between two points (x1,y1) and (x2,y2). Example: my $tag = $svg->line( id=>'l1', x1=>0, y1=>10, x2=>10, y2=>0 ); To draw multiple connected lines, use "polyline". text $text = $svg->text(%attributes)->cdata(); $text_path = $svg->text(-type=>'path'); $text_span = $text_path->text(-type=>'span')->cdata('A'); $text_span = $text_path->text(-type=>'span')->cdata('B'); $text_span = $text_path->text(-type=>'span')->cdata('C'); define the container for a text string to be drawn in the image. Input: -type = path type (path | polyline | polygon) -type = text element type (path | span | normal [default]) Example: my $text1 = $svg->text( id=>'l1', x=>10, y=>10 )->cdata('hello, world'); my $text2 = $svg->text( id=>'l1', x=>10, y=>10, -cdata=>'hello, world'); my $text = $svg->text( id=>'tp', x=>10, y=>10 -type=>path) ->text(id=>'ts' -type=>'span') ->cdata('hello, world'); SEE ALSO: L<"desc">, L<"cdata">. title $tag = $svg->title(%attributes) Generate the title of the image. Example: my $tag = $svg->title(id=>'document-title')->cdata('This is the title'); desc $tag = $svg->desc(%attributes) Generate the description of the image. Example: my $tag = $svg->desc(id=>'document-desc')->cdata('This is a description'); comment $tag = $svg->comment(@comments) Generate the description of the image. Example: my $tag = $svg->comment('comment 1','comment 2','comment 3'); pi (Processing Instruction) $tag = $svg->pi(@pi) Generate a set of processing instructions Example: my $tag = $svg->pi('instruction one','instruction two','instruction three'); returns: <lt>?instruction one?<gt> <lt>?instruction two?<gt> <lt>?instruction three?<gt> script $tag = $svg->script(%attributes) Generate a script container for dynamic (client-side) scripting using ECMAscript, Javascript or other compatible scripting language. Example: my $tag = $svg->script(-type=>"text/ecmascript"); #or my $tag = $svg->script(); #note that type ecmascript is not Mozilla compliant # populate the script tag with cdata # be careful to manage the javascript line ends. # qq|text| or qqXtextX where text is the script # works well for this. #make sure to use the CAPITAL CDATA to poulate the script. $tag->CDATA(qq|function d(){ //simple display function for(cnt = 0; cnt < d.length; cnt++) document.write(d[cnt]);//end for loop document.write("<BR>");//write a line break }| ); path $tag = $svg->path(%attributes) Draw a path element. The path vertices may be imputed as a parameter or calculated usingthe "get_path" method. Example: # a 10-pointsaw-tooth pattern drawn with a path definition my $xv = [0,1,2,3,4,5,6,7,8,9]; my $yv = [0,1,0,1,0,1,0,1,0,1]; $points = $a->get_path( x => $xv, y => $yv, -type => 'path', -closed => 'true' #specify that the polyline is closed ); $tag = $svg->path( %$points, id => 'pline_1', style => { 'fill-opacity' => 0, 'fill' => 'green', 'stroke' => 'rgb(250,123,23)' } ); SEE ALSO: "get_path". get_path $path = $svg->get_path(%attributes) Returns the text string of points correctly formatted to be incorporated into the multi-point SVG drawing object definitions (path, polyline, polygon) Input: attributes including: -type = path type (path | polyline | polygon) x = reference to array of x coordinates y = reference to array of y coordinates Output: a hash reference consisting of the following key-value pair: points = the appropriate points-definition string -type = path|polygon|polyline -relative = 1 (define relative position rather than absolute position) -closed = 1 (close the curve - path and polygon only) Example: #generate an open path definition for a path. my ($points,$p); $points = $svg->get_path(x=&gt@x,y=&gt@y,-relative=&gt1,-type=&gt'path'); #add the path to the SVG document my $p = $svg->path(%$path, style=>\%style_definition); #generate an closed path definition for a a polyline. $points = $svg->get_path( x=>@x, y=>@y, -relative=>1, -type=>'polyline', -closed=>1 ); # generate a closed path definition for a polyline # add the polyline to the SVG document $p = $svg->polyline(%$points, id=>'pline1'); Aliases: get_path set_path animate $tag = $svg->animate(%attributes) Generate an SMIL animation tag. This is allowed within any nonempty tag. Refer to the W3C for detailed information on the subtleties of the animate SMIL commands. Inputs: -method = Transform | Motion | Color my $an_ellipse = $svg->ellipse( cx=>30,cy=>150,rx=>10,ry=>10,id=>'an_ellipse', stroke=>'rgb(130,220,70)',fill=>'rgb(30,20,50)'); $an_ellipse-> animate( attributeName=>"cx",values=>"20; 200; 20",dur=>"10s", repeatDur=>'indefinite'); $an_ellipse-> animate( attributeName=>"rx",values=>"10;30;20;100;50", dur=>"10s", repeatDur=>'indefinite'); $an_ellipse-> animate( attributeName=>"ry",values=>"30;50;10;20;70;150", dur=>"15s", repeatDur=>'indefinite'); $an_ellipse-> animate( attributeName=>"rx",values=>"30;75;10;100;20;20;150", dur=>"20s", repeatDur=>'indefinite'); $an_ellipse-> animate( attributeName=>"fill",values=>"red;green;blue;cyan;yellow", dur=>"5s", repeatDur=>'indefinite'); $an_ellipse-> animate( attributeName=>"fill-opacity",values=>"0;1;0.5;0.75;1", dur=>"20s",repeatDur=>'indefinite'); $an_ellipse-> animate( attributeName=>"stroke-width",values=>"1;3;2;10;5", dur=>"20s",repeatDur=>'indefinite'); group $tag = $svg->group(%attributes) Define a group of objects with common properties. groups can have style, animation, filters, transformations, and mouse actions assigned to them. Example: $tag = $svg->group( id => 'xvs000248', style => { 'font' => [ qw( Arial Helvetica sans ) ], 'font-size' => 10, 'fill' => 'red', }, transform => 'rotate(-45)' ); defs $tag = $svg->defs(%attributes) define a definition segment. A Defs requires children when defined using SVG.pm Example: $tag = $svg->defs(id => 'def_con_one',); style $svg->tag('style', %styledef); Sets/Adds style-definition for the following objects being created. Style definitions apply to an object and all its children for all properties for which the value of the property is not redefined by the child. mouseaction $svg->mouseaction(%attributes) Sets/Adds mouse action definitions for tag attrib $svg->attrib($name, $value) Sets/Adds mouse action definitions. $svg->attrib $name, $value $svg->attrib $name, @value $svg->attrib $name, \%value Sets/Replaces attributes for a tag. cdata $svg->cdata($text) Sets cdata to $text. SVG.pm allows you to set cdata for any tag. If the tag is meant to be an empty tag, SVG.pm will not complain, but the rendering agent will fail. In the SVG DTD, cdata is generally only meant for adding text or script content. Example: $svg->text( style => { 'font' => 'Arial', 'font-size' => 20 })->cdata('SVG.pm is a perl module on CPAN!'); my $text = $svg->text(style=>{'font'=>'Arial','font-size'=>20}); $text->cdata('SVG.pm is a perl module on CPAN!'); Result: E<lt>text style="font: Arial; font-size: 20" E<gt>SVG.pm is a perl module on CPAN!E<lt>/text E<gt> SEE ALSO: L<"CDATA"> L<"desc">, L<"title">, L<"text">, L<"script">. cdata_noxmlesc $script = $svg->script(); $script->cdata_noxmlesc($text); Generates cdata content for text and similar tags which do not get xml-escaped. In othe words, does not parse the content and inserts the exact string into the cdata location. CDATA $script = $svg->script(); $script->CDATA($text); Generates a <![CDATA[ ... ]]> tag with the contents of $text rendered exactly as supplied. SVG.pm allows you to set cdata for any tag. If the tag is meant to be an empty tag, SVG.pm will not complain, but the rendering agent will fail. In the SVG DTD, cdata is generally only meant for adding text or script content. Example: my $text = qqX var SVGDoc; var groups = new Array(); var last_group; /***** * * init * * Find this SVG's document element * Define members of each group by id * *****/ function init(e) { SVGDoc = e.getTarget().getOwnerDocument(); append_group(1, 4, 6); // group 0 append_group(5, 4, 3); // group 1 append_group(2, 3); // group 2 }X; $svg->script()->CDATA($text); Result: E<lt>script E<gt> <gt>![CDATA[ var SVGDoc; var groups = new Array(); var last_group; /***** * * init * * Find this SVG's document element * Define members of each group by id * *****/ function init(e) { SVGDoc = e.getTarget().getOwnerDocument(); append_group(1, 4, 6); // group 0 append_group(5, 4, 3); // group 1 append_group(2, 3); // group 2 } ]]E<gt> SEE ALSO: L<"cdata">, L<"script">. xmlescp and xmlescape $string = $svg->xmlescp($string) $string = $svg->xmlesc($string) $string = $svg->xmlescape($string) SVG module does not xml-escape characters that are incompatible with the XML specification. xmlescp and xmlescape provides this functionality. It is a helper function which generates an XML-escaped string for reserved characters such as ampersand, open and close brackets, etcetera. The behaviour of xmlesc is to apply the following transformation to the input string $s: $s=~s/&(?!#(xww|d+?);)/&amp;/g; $s=~s/>/&gt;/g; $s=~s/</&lt;/g; $s=~s/"/&quot;/g; $s=~s/'/&apos;/g; $s=~s/([x00-x08x0bx1f])/''/eg; $s=~s/([200-377])/'&#'.ord($1).';'/ge; filter $tag = $svg->filter(%attributes) Generate a filter. Filter elements contain "fe" filter sub-elements. Example: my $filter = $svg->filter( filterUnits=>"objectBoundingBox", x=>"-10%", y=>"-10%", width=>"150%", height=>"150%", filterUnits=>'objectBoundingBox' ); $filter->fe(); SEE ALSO: "fe". fe $tag = $svg->fe(-type=>'type', %attributes) Generate a filter sub-element. Must be a child of a "filter" element. Example: my $fe = $svg->fe( -type => 'DiffuseLighting' # required - element name omiting 'fe' id => 'filter_1', style => { 'font' => [ qw(Arial Helvetica sans) ], 'font-size' => 10, 'fill' => 'red', }, transform => 'rotate(-45)' ); Note that the following filter elements are currently supported: * feBlend * feColorMatrix * feComponentTransfer * feComposite * feConvolveMatrix * feDiffuseLighting * feDisplacementMap * feDistantLight * feFlood * feFuncA * feFuncB * feFuncG * feFuncR * feGaussianBlur * feImage * feMerge * feMergeNode * feMorphology * feOffset * fePointLight * feSpecularLighting * feSpotLight * feTile * feTurbulence SEE ALSO: "filter". pattern $tag = $svg->pattern(%attributes) Define a pattern for later reference by url. Example: my $pattern = $svg->pattern( id => "Argyle_1", width => "50", height => "50", patternUnits => "userSpaceOnUse", patternContentUnits => "userSpaceOnUse" ); set $tag = $svg->set(%attributes) Set a definition for an SVG object in one section, to be referenced in other sections as needed. Example: my $set = $svg->set( id => "Argyle_1", width => "50", height => "50", patternUnits => "userSpaceOnUse", patternContentUnits => "userSpaceOnUse" ); stop $tag = $svg->stop(%attributes) Define a stop boundary for "gradient" Example: my $pattern = $svg->stop( id => "Argyle_1", width => "50", height => "50", patternUnits => "userSpaceOnUse", patternContentUnits => "userSpaceOnUse" ); $tag = $svg->gradient(%attributes) Define a color gradient. Can be of type linear or radial Example: my $gradient = $svg->gradient( -type => "linear", id => "gradient_1" ); GENERIC ELEMENT METHODS
The following elements are generically supported by SVG: * altGlyph * altGlyphDef * altGlyphItem * clipPath * color-profile * cursor * definition-src * font-face-format * font-face-name * font-face-src * font-face-url * foreignObject * glyph * glyphRef * hkern * marker * mask * metadata * missing-glyph * mpath * switch * symbol * tref * view * vkern See e.g. "pattern" for an example of the use of these methods. METHODS IMPORTED BY SVG
::DOM The following SVG::DOM elements are accessible through SVG: * getChildren * getFirstChild * getNextChild * getLastChild * getParent * getParentElement * getSiblings * getElementByID * getElementID * getElements * getElementName * getType * getAttributes * getAttribute * setAttributes * setAttribute * insertBefore * insertAfter * insertSiblingBefore * insertSiblingAfter * replaceChild * removeChild * cloneNode LICENSE
SVG.pl is distributed under the same license as Perl itself. It is provided free of warranty and may be re-used freely. SEE ALSO
perl(1), SVG, SVG::DOM, SVG::XML, SVG::Element, SVG::Parser, SVG::Manual, SVG::Extension Serverside SVG Portal - Perl focused SVG site with discussion board and examples: <http://www.roitsystems.com/> <http://www.perlsvg.com/> SVG at the W3C: <http://www.w3c.org/Graphics/SVG/> For Commercial Perl/SVG development, refer to the following sites: RO IT Systems: <http://www.roitsystems.com/> perl v5.14.2 2012-05-29 SVG::Manual(3pm)
All times are GMT -4. The time now is 05:06 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy