It is obvious what I want to do here: I want to enlarge $y with 155 and $z with 1 by $hoeveel times. But how to do it?#!/usr/bin/perl use strict; use warnings; print "Hoeveel?\n"; my $hoeveel = <STDIN>; chomp $hoeveel; print "You typed: $hoeveel\n"; my $y = -931.96483; my $z = 1000; my $a= <<EOT; <g transform="translate(-124.85653,$y)" id="layer$z"> <text xml:space="preserve" style="font-style:normal;font-variant:normal;font-weight:normal +;font-stretch:normal;font-size:126.0375061px;line-height:125%;font-fa +mily:Arial;-inkscape-font-specification:'Arial, Normal';text-align:st +art;letter-spacing:0px;word-spacing:0px;writing-mode:lr-tb;text-ancho +r:start;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stro +ke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1" x="-45.714272" y="235.21936" id="text3336"><tspan id="tspan3338" x="-45.714272" y="235.21936">a</tspan></text> </g> EOT for (my $i=1; $i <= $hoeveel; $i++) { my $y = $y + 155; my $z = $z +1; print "$a\n"; };
In reply to Enlarging scalars by WisDomSeeKer34
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |