Here is the perl script to draw rectangle using SVG module. In which, I would like to have mouse interactivity. The module supports mouse actions but I am not clear about how to use it.

$svg->rectangle(
                x =>$x1,
                y =>$y1,
                width  => $x2,
                height => $y2,
                style => {
                        'fill'           => 'rgb(0, 0, 128)',
                        'stroke'         => 'black',
                        'stroke-width'   =>  1,
                        'stroke-opacity' =>  1,
                        'fill-opacity'   =>  1,
                },
        );
[download]

>  The module supports mouse actions but I am not clear about how to use it.

Would you mind to specify "the module" or maybe even link to it?

There are several SVG modules on cpan,   but I am not clear about it.

See How (Not) To Ask A Question for further ideas.

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

Why not try?

SVG module is real simple, its just helpers to generate some xml

The "mouseaction" seems like something extra the author needed , its not part of the spec

Anyway,

$rctangle->attrib( onclick => q{alert(evt);});
[download]


https://www.w3.org/TR/SVG/script.html
https://www.w3.org/TR/SVG/images/script/script01.svg

 

Also, I cross-link cross-postings for maximum collaboration efficiency

http://stackoverflow.com/questions/38667654/mouse-action-svg

It doesn't seem to work for me. I want to show the message which is stored in $message when I click the rectangle. I modified the code this way.

$svg->rectangle(
                x =>$x1,
                y =>$y1,
                width  => $x2,
                height => $y2,
                style => {
                        'fill'           => 'rgb(0, 0, 128)',
                        'stroke'         => 'black',
                        'stroke-width'   =>  1,
                        'stroke-opacity' =>  1,
                        'fill-opacity'   =>  1,
                },
        );
$rectangle->attrib(onclick=>q{alert($message);});
[download]

Please correct me if I am wrong