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

Re: Grab Current Line of SVG File

by SuicideJunkie (Vicar)
on Apr 17, 2019 at 15:14 UTC ( #1232719=note: print w/replies, xml ) Need Help??


in reply to Grab Current Line of SVG File

What you would probably want to do is read line by line with:

while (my $line = <IN>) { #Do stuff with $line $line =~ s/rotate\(-180/rotate\(-0/g; #etc }
(The minimalist for loop you have reads the whole file in at once, then loops over the lines with the current line stored in $_. Your subsequent code implicitly uses $_ with the substitutions and whatnot, which is what is tripping you up I believe.)

You also have an issue with your opens; "$dirname/$in" || next is unlikely to do the next, since "$dirname/$in" isn't going to be false. You want to use "or" instead of "||" there for the precedence.

You may also want to upgrade to open my $inFileHandle, '<', "$dirname/$in" or next;, which will make it easy to pass $inFileHandle into functions in the future, but that's not important for what you're currently doing.

Replies are listed 'Best First'.
Re^2: Grab Current Line of SVG File
by beginAgain (Novice) on Apr 17, 2019 at 16:14 UTC
    You said "with the current line stored in $_" - that saved me - I was able to get the current code to do what I needed with that VERY helpful tidbit and using the index function to check for <path Thank you, Charles
Re^2: Grab Current Line of SVG File
by beginAgain (Novice) on Apr 17, 2019 at 15:24 UTC
    Thank you for the quick response :) I am working with your suggestions now and will get back to you

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (1)
As of 2021-10-27 02:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (91 votes). Check out past polls.

    Notices?