我有一個多行輸出，我需要拆分並將數據推入陣列

Question

我有一個輸出，具有獨特的數據類似的行。我必須將獨特的數據剪切成不同的數組，然後在forloop中使用它。另外，我的輸出不會有固定數量的行，並且取決於執行時間的執行時間。

例如：

Thestudentname=ravi&class=2&availbus=yes&city=hyd 
Thestudentname=shyam&class=4&availbus=no&city=cal 
Thestudentname=rohan&class=6&availbus=yes&city=mum 
. 
. 
. 

這裏的名字，班級，公共汽車和城市應該是我的陣列和他們都有相同的編號爲給定的執行數組元素。

Answer 1

#!/usr/bin/perl 
use strict; 
use warnings; 

my (@names, @classes, @buses, @cities); 

while (<DATA>) { # loop over lines; line is stored in $_ 
    my ($name, $class, $bus, $city) = 
     /Thestudentname=(\w+)&class=(\d+)&availbus=(\w+)&city=(\w+)/; 
    push @names, $name; 
    push @classes, $class; 
    push @buses, $bus; 
    push @cities, $city; 
} 

# Print out the arrays' content 
use Data::Dumper; 
print Dumper \(@names, @classes, @buses, @cities); 

__DATA__ 
Thestudentname=ravi&class=2&availbus=yes&city=hyd 
Thestudentname=shyam&class=4&availbus=no&city=cal 
Thestudentname=rohan&class=6&availbus=yes&city=mum