Public Scratchpad

Select Code to Download

  DB<200> h
List/search source lines:               Control script execution:
...
  f filename  View source in file         <CR/Enter>  Repeat last n or
+ s
  /pattern/   patt   Search forw/backw    r           Return from subr
+outine
  M           Show module versions        c [ln|sub]  Continue until p
+osition

Select or download this

# begin transaction

...
    ON t_copy.f_cloned_id = T.f_node_id;
END IF;

Select or download this

  /* sundialsvc4 */
  .node-from-647953,           /* Newest nodes  */
...
// others to follow

  {  display: none; };

Select or download this

select N.*,C.* 
from  t_tm1_export_import_view_copy AS C 
...
 AND C.f_dim = N.f_dim
 AND C.f_elementNr = N.f_elementNr
where N.f_dim is NULL

Select or download this
```
sub ($a,$b,$c) {

}
```

Select or download this

$string->match(/x/);

$aref->grep B{ };

Select or download this

if ($a in @a) {

}; 

$a in 1..1000 # but lazy

Select or download this
```
 for my [$a,$b,$c] (@list) {

}
```

Select or download this

sub bla {
  doc "this function blas";
...
}

print &bla->doc();

Select or download this

%main::->grep B{ /_test$/ and isARRAY };

print map { $_->sig() . "\n" . $_->doc() } 
       grep2 {isCODE} 
         %main::