Port before_v0.60/data_extraction before_v0.60/examples `before_v…

…0.60/duplicates` (#847)

This PR is part of porting all old scripts #221 and includes a set of
modules:

- `data_extraction`
- `examples` 
- `duplicates`

## 7 changed files:

### `data_extraction`
- `data_extraction/ultimate_extractor.nu`: removed. Has already been
ported to `modules/data_extraction/ultimate_extractor.nu`

### `duplicates`
- `duplicates/duplicates.nu` -> `modules/duplicates/duplicates.nu`
- `duplicates/example.nu` -> `modules/duplicates/example.nu`
- `duplicates/README.md` -> `modules/duplicates/README.md`: unchanged

### `examples`
- `examples/netstat.nu` -> `modules/examples/netstat.nu`
- `examples/date_in_local_timezones.nu` ->
`modules/examples/date_in_local_timezones.nu`
- `befove_v0.60/assets/core_team.nu`: removed. This table has been
embedded into `date_in_local_timezones.nu`

before_v0.60/duplicates/example.nu → modules/duplicates/example.nu

@@ -1,13 +1,15 @@
 # duplicates example
-echo $info | from json
+use mod.nu *
+
 let info = "[{name: "John", lastname: "Doe"}, {name: "John", lastname: "Roe"}, {name: "Jane", lastname: "Soe"}]"
-echo $info | from json | duplicates name
+print ($info | from json)
+print ($info | from json | duplicates name)
 
 #duplicates files example
 echo A | save A.txt
 echo A | save B.txt 
 # note that if I used "echo B | save B.txt" the function will give a false positive
 echo ABC | save C.txt
-ls
-duplicates files
-rm A.txt B.txt C.txt --permanent
+print (ls)
+print (duplicates files)
+rm A.txt B.txt C.txt --permanent

before_v0.60/duplicates/duplicates.nu → modules/duplicates/mod.nu

@@ -1,21 +1,21 @@
 # duplicates returns the rows that correspond to duplicates of the given column.
-def duplicates [
+export def duplicates  [
  column: string # Column to look duplicates at
  --count(-c) # set it to display the number of times the value is repeated.
 ] {
- group-by $column |
- pivot |
- insert count { $it.Column1 | flatten | length } |
+ group-by {get $column | into string} |
+ transpose |
+ insert count { $in.column1 | flatten | length } |
  where count > 1 |
- reject Column0 |
- if ($count | empty?) { reject count } { each { $it } } |
+ reject column0 |
+ if ($count | is-empty) { reject count } else { each { $in } } |
  flatten |
  flatten
 }
 
 # duplicates files recursively finds duplicate files in the current working folder.
 # It uses a heuristic based on duplicate files having the same size.
-def "duplicates files" [] {
+export def "duplicates files" [] {
  do -i {ls **/*} | duplicates size
 }
 

sourced/examples/date_in_local_timezones.nu

@@ -0,0 +1,42 @@
+
+def "nu core-team" [] {
+ [
+ [ 'name', 'tz'];
+ [ 'andres', 'America/Guayaquil']
+ [ 'fdncred', 'US/Central']
+ [ 'gedge', 'US/Eastern']
+ [ 'jt', 'NZ']
+ [ 'wycats', 'US/Pacific']
+ [ 'kubouch', 'Europe/Helsinki']
+ ['elferherrera', 'Europe/London']
+ ]
+}
+
+def "date local" [now] {
+ insert time {|value|
+ let converted = ($now | date to-timezone $value.tz);
+
+ $converted | format date '%c'
+ }
+}
+
+let next_call = ("2021-08-31 15:00:21.290597200 -05:00" | into datetime);
+let people = (nu core-team | date local $next_call);
+
+def say [closure] {
+ $in | each {|person|
+ do $closure (
+ $person | update name {|row| $row.name | str capitalize}
+ )
+ } | str join (char newline)
+}
+
+print ($people | say {|person| $"($person.name)'s timezone is ($person.tz)"})
+
+print ($" 
+
+for the next call happening on ($next_call | format date '%c').. in their timezones they would be:
+
+")
+
+print ($people | say {|person| $"($person.name)'s: ($person.time)"})

sourced/examples/netstat.nu

@@ -0,0 +1,25 @@
+let ns = (netstat | lines | skip 1)
+
+let first_batch = ($ns | take until {|it| $it =~ Active } | str join (char nl) | from ssv -m 1)
+let second_batch = ($ns |
+ skip until {|it| $it =~ Active } | 
+ skip 1 | 
+ str join (char nl) | 
+ str replace '\[ \]' "[]" --all | 
+ from ssv -m 1 | 
+ default I-Node "" | 
+ default Path "" 
+ | each {|row| if $row.Type == DGRAM {
+ $row | update Path { get I-Node } | update I-Node { get State } | update State ""
+ } else {
+ $row
+ }
+ }
+)
+
+print $first_batch
+print $second_batch
+
+
+
+