Help for this page

Select Code to Download


  1. or download this
    if (/^\{(.*)\}$/) {
  $tag = $1;
  print "The tag is $tag\n";
}
  2. or download this
    while (/\{(.*?)\}/g) {
  $tag = $1;
  print "The tag is $tag\n";
}
  3. or download this
    The tag is SOURCETAG
The tag is DATE
...
The tag is SOURCE
The tag is LINE
The tag is TTL