- or download this
$line =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/;
- or download this
my ($device, $bps, $sps, $msps ) = split ' ', $line;
- or download this
sub PlotGraph
{
...
sub PlotGraph
{
my ( $worksheet, $col, $row, $chartTitle, $xAxisTitle, $yAxisTitle )
+ = @_;