Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Perl - Sort hash of filenames by file extension
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
#perl 5.22.1 use strict; use warnings; use 5.010; my ($prev_ext, $current_ext); my %planets = ( 'Mercury.txt' => 0.4, 'Venus.dic' => 0.7, 'Earth.doc' => 1, 'Mars.jpg' => 1.5, 'Ceres.png' => 2.77, 'Jupiter.vmw' => 5.2, 'Saturn.ttf' => 9.5, 'Uranus.gif' => 19.6, 'Neptune.hlp' => 30, 'Pluto.doc' => 39, 'Charon.tif' => 39, ); my $filename =''; #foreach $name (keys %planets) { # printf "%-8s %s\n", $name, $planets{$name}; #} foreach $filename (sort{(substr($a, -3) cmp substr($b,-3))||($a cmp $b)} keys %planets) { #printf "%-8s %s\n", $filename, $planets{$filename}; ($current_ext = $filename) =~ s/(.+\.)(\w{3})$/$2/; printf $current_ext."\n"; #printf $filename."\n"; }
[
+
]
Show input
edit mode
|
history
|
discussion