Korzystanie z pętli foreach w Perl
Składnia
Różne składni dla każdego Pętla podano poniżej.
A. foreach var (tablica)
sprawozdania);
Powyższa pętla foreach jest używana do iteracji wartości tablicy.
B. foreach var (file_handler)
sprawozdania);
Powyższa pętla Foreach służy do odczytu zawartości pliku.
C. foreach var ()
sprawozdania);
Powyższa pętla Foreach służy do odczytania wejść użytkownika.
W następnej części tego samouczka pokazano różne zastosowania pętli foreach.
Przykład-1: Przeczytaj tablicę jednowymiarową
Utwórz plik perla z następującym kodem, który iteruje wartości jednowymiarowej tablicy za pomocą a dla każdego pętla i wydrukuj każdą wartość tablicy w linii. W kodzie zdefiniowano tablicę 5 wartości. W każdej iteracji pętli każda wartość tablicy będzie analizowana i wydrukowana na wyjściu z nową linią.
# Deklaruj tablicę wartości ciągu
@students = („Mir Sabbir”, „Meena Chowdhury”, „Lisa Rahman”, „Nirob Hossain”, „Keya Khan”);
# Iteruj wartości tablicy za pomocą pętli foreach
Foreach $ value (@students)
# Wydrukuj wartość tablicy
wydrukuj „$ value \ n”;
Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-2: Przeczytaj dwuwymiarową tablicę
Utwórz plik perla z następującym kodem, który iteruje wartości dwuwymiarowej tablicy za pomocą a dla każdego pętla i wydrukuj każdą wartość tablicy w linii. W kodzie zdefiniowano dwuwymiarową tablicę 4 wierszy i 3 kolumn. Dodatkowa nowa linia została dodana po iterowaniu wszystkich wartości rzędu. Wartości każdego wiersza zostały przeanalizowane za pomocą zmiennej obiektu zdefiniowanej w pętli.
# Deklaruj dwuwymiarową tablicę
@Students = (
id => '20227856',
Nazwa => „Neha Ali”,
Znaki => 89
,
id => '20224523',
Nazwa => „Mizanur Rahman”,
Znaki => 95
,
id => '20221278',
Nazwa => „Ruhul Amin”,
Znaki => 69
,
id => '20228956',
Nazwa => „Mehrab Hossain”,
Znaki => 70
,
);
# Iteruj wartości tablicy
Foreach $ std (@students)
# Wydrukuj wartości tablicy
Wydrukuj „identyfikator studencki:”, $ std-> 'id', „\ n”;
Wydrukuj „Nazwa studenta:”, $ std-> 'nazwa', „\ n”;
Wydrukuj „Marks Student:”, $ std-> 'Marks', "\ n \ n";
Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-3: Przeczytaj zakres wartości
Utwórz plik perla z następującym kodem, który iteruje dla każdego pętla oparta na wartościach tablicy zasięgu. W każdej iteracji wartość liczbowa zostanie pobrana od użytkownika i wprowadzona do tablicy. Wartości tej tablicy zostaną wydrukowane po zakończeniu iteracji pętli.
# Deklaruj tablicę
@linie;
# 4 razy iteruj pętlę
Foreach $ liczby (1… 4)
# Wydrukuj wiadomość dla użytkownika
Wydrukuj „Wprowadź numer:”;
# Weź dane wejściowe od użytkownika
$ line =;
# Dodaj wartość wejściową do tablicy
push @Lines, $ line;
# Wydrukuj wartości tablicy
Wydrukuj „\ Narray Wartości to: \ n”, @Lines;
Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-4: Przeczytaj zawartość pliku
Utwórz tekst nazwany mój plik.tekst z następującą zawartością przed przetestowaniem kodu tego przykładu.
mój plik.tekst
Perl jest językiem programowania ogólnego przeznaczenia.
Jest podobny w składni do języka C.
Jest to język otwarty i interpretowany.
Utwórz plik PERL z następującym kodem, który odczytuje zawartość mój plik.plik txt i wydrukuj zawartość pliku za pomocą dla każdego pętla. otwarty() Funkcja została użyta w kodzie do otwarcia pliku do odczytu. „„<” symbol is used to open a file for reading in PERL. Next, the dla każdego pętla została użyta do odczytu i drukowania linii zawartości pliku według linii.
# Ustaw nazwę pliku
$ filename = 'myfile.tekst';
# Otwórz plik do odczytu
Otwórz $ plik_handler, '<', $filename or die "Unable to open $filename file.";
# Przeczytaj każdy wiersz pliku za pomocą pętli foreach
foreach $ line ()
# Wydrukuj wiersz pliku
Wydrukuj $ linia;
Wyjście
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu, jeśli mój plik.tekst Plik nie istnieje w bieżącej lokalizacji.
Po utworzeniu mój plik.tekst Plik, następujące dane wyjściowe pojawi się po wykonaniu powyższego skryptu.
Przykład-5: Kontroluj pętlę foreach za pomocą słowa kluczowego „ostatnie”
Utwórz plik perla z następującym kodem, w którym dla każdego pętla zostanie zakończona za pomocą ostatni Słowo kluczowe oparte na „Jeśli" stan. dla każdego pętla będzie iterowana 10 razy w oparciu o tablicę zasięgu. Pętla zostanie zakończona po iteracji pętli 4 razy.
# Zdefiniuj pętlę, aby iterować 10 razy
Foreach $ numer (1… 10)
# Wydrukuj bieżącą wartość
wydrukuj „Obecny numer to numer $.\N";
#Terminację pętli na podstawie warunku „jeśli”
ostatni, jeśli $ liczba> 3;
# Wydrukuj wiadomość o zakończeniu
wydrukuj „pętla jest zakończona.\N";
Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-6: Przeczytaj wartości wielu tablic
Utwórz plik PERL z następującym kodem, który wydrukuje wartości dwóch tablic numerycznych za pomocą jednego dla każdego pętla. Wartości dwóch tablic i scalone wartości tych tablic zostaną wydrukowane po wykonaniu kodu.
# Zdefiniuj pierwszą tablicę
@array1 = (20, 30, 65);
# Zdefiniuj drugą tablicę
@array2 = (45, 18, 60, 11);
Wydrukuj „Pierwsze wartości tablicy to: \ n”, dołącz (",@array1),„ \ n ”;
Wydrukuj „Wartości drugiej tablicy to: \ n”, dołącz (",@array2),„ \ n ”;
Wydrukuj „Wartości obu tablic to: \ n”;
# Przeczytaj wartości obu tablic za pomocą pętli
foreach $ numer ( @array1, @array2)
# Wydrukuj wartość tablicy
Wydrukuj „$ numer”;
wydrukuj „\ n”;
Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu
Wniosek
Sposoby używania Foreach Pętla, aby przeanalizować jednowymiarowe tablice, dwuwymiarowe tablice, wiele tablic i zawartość pliku zostały pokazane w tym samouczku, aby pomóc użytkownikowi Perla poznać zastosowania dla każdego prawidłowo pętla w perl.