“HAAH anidada en Perl” Código de respuesta

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

HAAH anidada en Perl

# !/usr/bin/perl 
# Perl program to demonstrate 
# Multidimensional hash
  
use strict; 
use warnings;
use Data::Dumper qw(Dumper); 
  
# Creating a 2D hash
my %company = ('Sales' =>    {
                                'Brown' => 'Manager',
                                'Smith' => 'Salesman',
                                'Albert' => 'Salesman', 
                            }, 
            'Marketing' =>  {
                                'Penfold' => 'Designer',
                                'Evans' => 'Tea-person',
                                'Jurgens' => 'Manager', 
                            },
            'Production' => {
                                'Cotton' => 'Paste-up',
                                'Ridgeway' => 'Manager',
                                'Web' => 'Developer', 
                            },
            ); 
  
# Print the List 
print Dumper(\%company);
Angry Albatross

Respuestas similares a “HAAH anidada en Perl”

Preguntas similares a “HAAH anidada en Perl”

Explore las respuestas de código populares por idioma

Explorar otros lenguajes de código

Shell/Bash
C#
C++
C
CSS
HTML
Java
JavaScript
Objective-C
PHP
Python
Sql
Swift
Ruby
TypeScript
Go
Kotlin
Assembly
R
VBA
Scala
Rust
Dart
Elixir
Clojure
Haskell
Matlab
Erlang
Cobol
Fortran
Scheme
Perl
Groovy
Lua
Julia
Delphi
Abap
Lisp
Prolog
Pascal
ActionScript
Basic
Solidity
PowerShell
GDScript
Excel