Help for this page

Select Code to Download


  1. or download this
    @fields =  split /,/, $response, 39;
  2. or download this
    ($date,$time,$type...) = ...
  3. or download this
    use constant DATE => 0;
use constant TIME => 1;
...
my @fields = split /,/, $response, 39;

if ($fields[TYPE] eq 'widget') ...
  4. or download this
    my @fields = qw(date time type ...);
my %response;
...
@response{@fields} =  split /,/, $response, 39; # hash slice

if ($response{type} eq 'widget') {...