Unix/ls: Difference between revisions
→{{header|Perl 6}}: outputting only the string |
Edited for clarity. |
||
Line 6: | Line 6: | ||
<pre>/foo/bar |
<pre>/foo/bar |
||
/foo/bar/1 |
/foo/bar/1 |
||
/foo/bar/2 |
/foo/bar/2 |
||
/foo/bar/a |
|||
/foo/bar/b</pre> |
|||
When the program is executed in `/foo`, it should print: |
When the program is executed in `/foo`, it should print: |
||
Line 12: | Line 14: | ||
and when the program is executed in `/foo/bar`, it should print: |
and when the program is executed in `/foo/bar`, it should print: |
||
<pre>1 |
<pre>1 |
||
2 |
|||
⚫ | |||
a |
|||
⚫ | |||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
Revision as of 16:05, 6 June 2014
Write a program that will list everything in the current folder, similar to the Unix utility “ls” [1] (or the Windows terminal command “DIR”). The output must be sorted, but printing extended details and producing multi-column output is not required.
- Example output
For the list of paths:
/foo/bar /foo/bar/1 /foo/bar/2 /foo/bar/a /foo/bar/b
When the program is executed in `/foo`, it should print:
bar
and when the program is executed in `/foo/bar`, it should print:
1 2 a b
Perl 6
There is a dir builtin command which returns a list of IO::Path objects.
<lang perl6>say .Str for sort dir</lang>
Rust
<lang rust>use std::os; use std::io::fs;
fn main() { let cwd = os::getcwd(); match fs::readdir(&cwd) { Ok(v) => { let mut filenames = Vec::new(); for entry in v.iter() { match entry.filename_str() { Some(str) => filenames.push(str), None => fail!(format!("unable to get filename of path {}", entry.display())) }; }
filenames.sort(); for filename in filenames.iter() { println!("{}", filename); } } Err(e) => fail!(e) } }</lang>
Tcl
<lang tcl>puts [join [lsort [glob -nocomplain *]] "\n"]</lang>